طريقه سهله وسريعه لاخذ صوره لسطح المكتب وحفظها علي الهارد ديسك

Private Sub BtnShotScreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShotScreen.Click

Me.WindowState = FormWindowState.Minimized

Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics

screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, _
System.Drawing.Imaging.PixelFormat.Format32bppArgb)

graph = Graphics.FromImage(screenshot)

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

PictureBox1.Image = screenshot.GetThumbnailImage(PictureBox1.Width, PictureBox1.Height, Nothing, Nothing)
End Sub

Private Sub BtnSaveScreenٍٍShot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSaveScreenShot.Click

Dim SaveFileDialog1 As New SaveFileDialog()
SaveFileDialog1.Filter = "PNG|*.png|GIF|*.gif"
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
If Not PictureBox1.Image Is Nothing Then
PictureBox1.Image.Save(SaveFileDialog1.FileName)
End If
End If

End Sub