Dim Rect As Rectangle = Screen.PrimaryScreen.Bounds
dim bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height),
dim G As Graphics = Graphics.FromImage(bmp)
G.CopyFromScreen(0, 0, 0, 0, bmp.Size)
bmp.Save("Pfad+Name.JPG", System.Drawing.Imaging.ImageFormat.Jpeg)

Gru?

Silver