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.Jpeg) 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
