Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias _
  "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As _
  Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As _
Long) As Long
Private Const WH_KEYBOARD_LL As Long = 13
Public Type KBDLLHOOKSTRUCT
 vkCode As Long
 scanCode As Long
 flags As Long
 time As Long
 dwExtraInfo As Long
End Type
Dim hhk As Long
 
Public Function SetKeybHook() As Long
  hhk = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeybHook, App.hInstance, 0)
End Function
 
Public Function DelKeybHook() As Long
  If hhk = 0 Then Exit Function
  UnhookWindowsHookEx hhk
  hhk = 0
End Function
 
Private Function KeybHook(ByVal nCode As Long, ByVal wParam As Long, kbd As _
  KBDLLHOOKSTRUCT) As Long
  'wParam kann WM_KEYDOWN, WM_KEYUP, WM_SYSKEYDOWN, oder WM_SYSKEYUP enthalten
  'kbd.vkCode ist der Code der gedrückten Taste
 
  'Wenn KeybHook auf -1 gesetzt wird, wird die aktuelle Tasteneingabe verworfen
End Function