' Allgemeine Deklaration
Private Declare Function GetAsyncKeyState Lib "user32" _
  (ByVal vKey As Long) As Integer
Private Declare Sub keybd_event Lib "user32" _
  (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
  Const KEYEVENTF_KEYUP = &H2
Const VK_ESCAPE = &H1B
Const VK_LWIN = &H5B
Const VK_RWIN = &H5C
 
Private Sub Timer1_Timer()
If CBool(GetAsyncKeyState(VK_LWIN) And 1) Or _
    CBool(GetAsyncKeyState(VK_RWIN) And 1) Then
    ' Wenn Windowstaste gedrückt
    ' Escapetaste drücken
    Call keybd_event(VK_ESCAPE, 0, 0, 0)
    ' Escapetaste loslassen
    Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)
  End If
  DoEvents
End Sub