'Die nachfolgende Prozedur erstellt das Screenshot
Public Sub MakeScreenshot(ByVal ActiveWindow As Boolean)
 
  <font color=green>' Der Parameter ActiveWindow legt fest, ob ein Screenshot
  ' für das aktuelle Fenster (True) oder für gesamten Windows-Desktop (False)
  ' erstellt werden soll</font>
 
  Const KEYEVENTF_KEYUP = &H2
  Const VK_MENU = &H12
  Const VK_SNAPSHOT = &H2C
 
  If ActiveWindow Then keybd_event VK_MENU, 0, 0, 0   <font color=green>' 
  ' ALT-Taste</font>
  keybd_event VK_SNAPSHOT, 0, 0, 0                    <font color=green>' 
  ' Druck-Taste</font>
  keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
  If ActiveWindow Then keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
  DoEvents
End Sub