' Größe des Screens
        Dim oRect As Rectangle = My.Computer.Screen.Bounds
        'My.Computer.Screen.PrimaryScreen.Bounds
        Dim x As Integer = 0
 
        ' ist ein 2. Bildschirm vorhanden?
        If Screen.AllScreens.Length > 1 Then
            ' ja, dann Größe des zweiten Bildschirms ebenfalls berücksichtigen
            For i = 1 To Screen.AllScreens.Length - 1
                Select Case Screen.AllScreens(i).Primary
                    Case True
                        If i = 1 Then
                            oRect = Rectangle.Union(oRect, Screen.AllScreens(i _
                              - 1).Bounds)
                        Else
                            oRect = Rectangle.Union(oRect, Screen.AllScreens(i _
                              + 1).Bounds)
                        End If
                End Select
            Next
        End If
 
        ' 24-Bit Bitmap-Objekt mit der ermittelten Größe erstellen
        Dim oBitmap As Bitmap
        With oRect
            oBitmap = New Bitmap(.Width, .Height, _
              Imaging.PixelFormat.Format24bppRgb)
        End With
 
        ' Screenshot erstellen und in Bitmap-Objekt "ablegen"
        Using g As Graphics = Graphics.FromImage(oBitmap)
            g.CopyFromScreen(0, 0, 0, 0, New Size(oRect.Width, oRect.Height))
 
            ' - Anzeige des Screenshots in einem PictureBox-Control
            PictureBox1.Image = oBitmap.Clone
 
            ' - Screenshot in die Zwischenablage kopieren
            Clipboard.SetImage(oBitmap.Clone)
 
            ' - Screenshot als JPG-Datei speichern
            oBitmap.Save("d:\temp\screenshot.jpg", Imaging.ImageFormat.Jpeg)
        End Using
 
        ' Bitmap-Objekt freigeben
        oBitmap.Dispose()
 
    End Sub