screen capture program [TUT]

Public Class Form1

    Dim dt As String
    Dim name1 As String

    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        bmp.Checked = My.Settings.bmp
        jpeg.Checked = My.Settings.jpeg
        gif.Checked = My.Settings.gif
        tiff.Checked = My.Settings.tiff
        png.Checked = My.Settings.png

        If My.Settings.path = "" Then
            My.Settings.path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        End If

        TextBox1.Text = My.Settings.path

      
    End Sub

    Private Sub checkformat()
        If bmp.Checked = True Then
            PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".bmp", Drawing.Imaging.ImageFormat.Bmp)
        ElseIf gif.Checked = True Then
            PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".gif", Drawing.Imaging.ImageFormat.Gif)
        ElseIf png.Checked = True Then
            PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".png", Drawing.Imaging.ImageFormat.Png)
        ElseIf tiff.Checked = True Then
            PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".tiff", Drawing.Imaging.ImageFormat.Tiff)
        ElseIf jpeg.Checked = True Then
            PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".jpeg", Drawing.Imaging.ImageFormat.Jpeg)
        End If


    End Sub

    Private Sub ss()
        My.Settings.Save()
        My.Settings.Reload()
    End Sub

    Private Sub bmp_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmp.CheckedChanged
        My.Settings.bmp = bmp.Checked
        ss()

    End Sub

    Private Sub jpeg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jpeg.CheckedChanged
        My.Settings.jpeg = jpeg.Checked
        ss()

    End Sub

    Private Sub gif_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gif.CheckedChanged
        My.Settings.gif = gif.Checked
        ss()

    End Sub

    Private Sub png_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles png.CheckedChanged
        My.Settings.png = png.Checked
        ss()

    End Sub

    Private Sub tiff_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiff.CheckedChanged
        My.Settings.tiff = tiff.Checked
        ss()

    End Sub

    Private Sub taskbar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles taskbar.CheckedChanged
        My.Settings.taskbar = taskbar.Checked

        ss()


        If taskbar.Checked = True Then
            Me.ShowInTaskbar = True
        Else
            Me.ShowInTaskbar = False
        End If

    End Sub


    Private Sub hotkeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hotkeys.Tick
        dt = Date.Today & "  " & TimeOfDay

        Dim f8 As Boolean
        f8 = GetAsyncKeyState(Keys.F8)



        If f8 = True Then

            SendKeys.SendWait("{PRTSC}")

            Application.DoEvents()

            Try
                PictureBox1.Image = My.Computer.Clipboard.GetImage

                Application.DoEvents()

                name1 = dt.Replace(":", ".")


                checkformat()
            Catch
                MsgBox(ErrorToString)
            End Try
        End If

    End Sub

    Private Sub ShowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowToolStripMenuItem.Click
        Me.Show()
    End Sub

    Private Sub HideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HideToolStripMenuItem.Click
        Me.Hide()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fbd As New FolderBrowserDialog
        fbd.ShowDialog()

        TextBox1.Text = fbd.SelectedPath

        My.Settings.path = TextBox1.Text

        ss()

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        My.Settings.path = TextBox1.Text

        ss()
    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        Me.Show()
    End Sub
End Class