Public Function HotkeyWndProc(ByVal lHwnd As Long, _
  ByVal lMsg As Long, ByVal lwParam As Long, _
  ByVal lParam As Long) As Long
 
  If lMsg = WM_HOTKEY Then
  Msgbox lParam 
  End If
 
  ' !WndProc aufrufen und Rückgabewert durchreichen!
  HotkeyWndProc = CallWindowProc(glAddressOfHotKeyPrevWndProc, _
    lHwnd, lMsg, lwParam, lParam)
End Function