Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk _
      As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo _
      As Integer)
 
  Sub Screenshot_Test()
 
 
        Const KEYEVENTF_KEYUP = &H2
        Const VK_SNAPSHOT = &H2C
 
        keybd_event(VK_SNAPSHOT, 0, 0, 0) ''Druck-Taste
        keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
 
    End Sub