Dim ekransize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim ekranblack AsNew Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(ekranblack)
g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ekransize)
ekranblack.Save("C:\ekranblack.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)


bu kodları yazın ve formu çalıştırın....

Masaüstündeki resminiz Yerel Disk C'nize kayıt olur..