Private Sub Form_Load()
 
    Me.Hide
 
    App.TaskVisible = False
 
     ' Systemweit eindeutigen Wert generieren lassen
    glHotKeyAtom = GlobalAddAtomA(CStr(&HBFFE))
    If glHotKeyAtom = 0 Then
        MsgBox "GlobalAddAtomA() fehlgeschlagen" & vbCr & "Fehlercode: " & CStr( _
          GetLastError()), vbExclamation
        End
    End If
 
    ' Hotkey systemweit registrieren.
    ' Hier "Strg + F11"
 
    If RegisterHotKey(Me.hWnd, glHotKeyAtom, MOD_CONTROL, VK_F11) = 0 _
      Then '[u]Hier entsteht der Fehler
 
        MsgBox "RegisterHotKey() fehlgeschlagen" & vbCr & "Fehlercode: " & CStr( _
          GetLastError()), vbExclamation 'Hier bekomme ich Fehler Nr 1409 
        ' ausgegeben
        End
 
    Else
        ' Wenn Hotkey registriert werden konnte,
        ' wird jetzt die Fensterprozedur umgeleitet,
        ' um die WM_HOTKEY Message abfragen zu können
        glAddressOfHotKeyPrevWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, _
          AddressOf HotkeyWndProc)
 
        If glAddressOfHotKeyPrevWndProc = 0 Then
            MsgBox "SetWindowLong() fehlgeschlagen" & vbCr & "Fehlercode: " & _
              CStr(GetLastError()), vbExclamation
        End
 
        End If
 
    End If

Public Const WM_HOTKEY = &H312
Public Const GWL_WNDPROC = (-4)
Public Const MOD_ALT = &H1
Public Const MOD_CONTROL = &H2
Public Const MOD_SHIFT = &H4
Public Const VK_F12 = &H7B
Public Const VK_F11 = &H7A