Imports System.Drawing.Imaging
Module Funktionen
Sub Screenshot_Test2()
        Dim rect As Rectangle = Screen.AllScreens(0).Bounds
        Dim ici() As ImageCodecInfo = ImageCodecInfo.GetImageEncoders()
        Dim ep As New EncoderParameters(1)
 
        If Screen.AllScreens().Count >= 2 Then
            Dim rect2 As Rectangle = Screen.AllScreens(1).Bounds 'oder 1 für 
            ' den zweiten Bildschirm
            rect = Rectangle.Union(rect, rect2)
        End If
 
        ep.Param(0) = New EncoderParameter(Encoder.Quality, 25) '25% Qualität
 
        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(Application.StartupPath & "\Screenshot.jpg", ici(1), ep)
        End Using
 
    End Sub
End Module