Public Class Form1
 
    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Dim CountToShot As String = 0
        Label2.Text -= CountToShot + 1
        If Label2.Text = 0 Then
            Me.Hide()
        End If
        If Label2.Text = -2 Then
            Try
                Dim ScreenSize As Size = New Size( _
                  My.Computer.Screen.Bounds.Width, _
                  My.Computer.Screen.Bounds.Height)
                Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, _
                My.Computer.Screen.Bounds.Height)
                Dim g As System.Drawing.Graphics = _
                System.Drawing.Graphics.FromImage(screenGrab)
                g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
                screenGrab.Save("C:\Screenshot.jpg")
                MsgBox("The screenshot has been made successful", _
                  MsgBoxStyle.Information, "Screenshot successful!")
            Catch ex As Exception
                MsgBox("Error", MsgBoxStyle.Critical, "Error!")
            End Try
            End
        End If
    End Sub
 
    Private Sub cmdShot_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdShot.Click
        Label2.Visible = True
        Timer1.Start()
    End Sub
 
    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        about.Show()
    End Sub
End Class