Make a screen shot application in vb.net

i am now just going to teach you how to make a simple very small screen shot application in vb.net 




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

        TextBox1.Enabled = False

        Timer1.Start()

    End Sub







Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick

        Dim snappit As String = 0

        TextBox1.Text -= snappit + 1

        If textbox1.text = 0 Then

            "skimlinks-unlinked">Me.Hide()

        End If

        If TextBox1.text = -2 Then

            Try

                Dim screenshot As Size = New Size("skimlinks-unlinked">My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

                Dim screengrab As New Bitmap("skimlinks-unlinked">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), screenshot)

                "skimlinks-unlinked">screengrab.Save("snap.jpg")

                MsgBox("your screen has been snapped and the snap was saved", MsgBoxStyle.Information, "SuperScreenShot")

                "skimlinks-unlinked">Me.Close()

            Catch ex As Exception

                MsgBox("sorry unable to snap your screen and save at the moment please try again later", MsgBoxStyle.Critical, "Warning!")

            End Try

        End If

    End Sub

End Class