Private Shared Sub ScreenShot(ByVal so As ScreenShotOption)
    Dim bmp As Bitmap
 
    ' Screenshot durchführen
    If (so = ScreenShotOption.GanzerBildschirm) Then
        SendKeys.Send("^({PRTSC})")
    ElseIf (so = ScreenShotOption.AktuellesFenster) Then
        SendKeys.Send("%({PRTSC})")
    End If
 
    ' virtuelle Tastatureingabe sofort bearbeiten
    SendKeys.Flush()
 
    ' Grafik in einer Bitmap-Variable speichern
    bmp = CType(Clipboard.GetDataObject.GetData("Bitmap", True), Bitmap)
 
    ' Platz zum Bearbeiten der Grafik
End Sub
 
Private Enum ScreenShotOption As Integer
    GanzerBildschirm = 0
    AktuellesFenster = 1
End Enum