Public Function HotkeyWndProc(ByVal hWnd As Long, _
ByVal uMsg As Long, ByVal wParam As Long, _
ByVal lParam As Long) As Long
 
If uMsg = WM_HOTKEY Then
    ' HotKey aus Collection bestimmen
    Dim cKey As clsHotKey
 
    On Error Resume Next
    Set cKey = oHotKeys("id_" & CStr(wParam))
    If Err.Number = 0 Then
    On Error GoTo 0
 
    ' ------------------------------------------------
    ' Hier werden die registrierten HotKeys abgefragt!
    ' ------------------------------------------------
    With cKey
 
        ' Multiplikation
        If .KeyCode = vbKeyMultiply Then
            ' Eigene Anwendung in den Vordergrund bringen
            'SetForegroundWindow hWnd
            SubMultiplikation
 
        'ESC
        ElseIf .KeyCode = vbKeyEscape Then
            ' Eigene Anwendung in den Vordergrund bringen
            'SetForegroundWindow hWnd
            sub_ESC
 
        End If
    End With
End If
On Error GoTo 0
End If
 
' WndProc aufrufen und Rückgabewert durchreichen
HotkeyWndProc = CallWindowProc(PrevWndProc, hWnd, uMsg, wParam, lParam)
End Function