<code><font color=green>' Screenshot erstellen</font>
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
  ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
<font color=green>'Die nachfolgende Prozedur erstellt das Screenshot</font>
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   'ALT-Taste
  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</code>