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
    ' Hier kommt die Message, wenn die via
    ' "RegisterHotKey" registrierte Tastenkombination
    ' gedrückt wurde...
 
    ' Mauszeiger einschalten (anzeigen)
    ShowCursor 1
  End If
 
  ' !WndProc aufrufen und Rückgabewert durchreichen!
  HotkeyWndProc = CallWindowProc(glAddressOfHotKeyPrevWndProc, _
    lHwnd, lMsg, lwParam, lParam)
End Function