how to make a screen shot taker

Public Class Form1

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

Dim area As Rectangle

Dim capture As System.Drawing.Bitmap

Dim graph As Graphics

area = Form2.Bounds

capture = New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb )

graph = Graphics.FromImage(capture)

graph.CopyFromScreen(area.X, area.Y, 0, 0, area.Size, CopyPixelOperation.SourceCopy)

PictureBox1.Image = capture
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim save As New SaveFileDialog

Try
save.Title = "Save File"

save.FileName = "Screenshot"

save.Filter = "Png |*.Png"

If save.ShowDialog() = DialogResult.OK Then

PictureBox1.Image.Save(save.FileName, System.Drawing.Imaging.ImageFormat.Png)

End If

Catch ex As Exception

End Try
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.Show()
End Sub

End Class