' Hotkey systemweit registrieren.
  ' Hier "Strg + F12"
 
  If RegisterHotKey(Me.hWnd, glHotKeyAtom, MOD_CONTROL, _
    VK_F12) = 0 Then
 
    MsgBox "RegisterHotKey() fehlgeschlagen" & vbCr & _
      "Fehlercode: " & CStr(GetLastError()), vbExclamation 'Wenn Registrierung 
      ' des HotKey fehlgeschlagen ist
    'End
  Else
    ' Wenn Hotkey registriert werden konnte,
    ' wird jetzt die Fensterprozedur umgeleitet,
    ' um die WM_HOTKEY Message abfragen zu können