Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim Rect As Rectangle = Screen.PrimaryScreen.Bounds
        Using bmp As Bitmap = New Bitmap(Rect.Width, Rect.Height), G As _
          Graphics = Graphics.FromImage(bmp)
            G.CopyFromScreen(0, 0, 0, 0, bmp.Size)
            bmp.Save("Pfad+Name.JPG", System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
End Sub