Как правильно создать окно только для сообщений, используя CreateWindowEx?

hMsgWindow = CreateWindowEx(0, StrPtr("Message"), 0, 0, 0, 0, 0, 0, HWND_MESSAGE, 0, App.hInstance, ByVal 0&)

    Do
        WaitMessage
        DoEvents
    Loop

Do
        WaitMessage
        DoEvents
    Loop

Do
        lRet = GetMessage(MsgThreed, 0, 0, 0)
        
        If lRet = -1 Then
            ' // Error
            Exit Do
        ElseIf lRet = 0 Then
            Exit Do
        Else
            TranslateMessage MsgThreed
            DispatchMessage MsgThreed
        End If
    Loop

Do
        WaitMessage
        
        If PeekMessage(MsgThreed, 0, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
            If MsgThreed.wParam = 88001 Then
                KillTimer HandleThunderRT6Main, 0
                Unload Form1
                Exit Do ' Выйти из программы
            End If
            If MsgThreed.wParam = 88002 Then
                Form1.Show
                KillTimer HandleThunderRT6Main, 0
            End If
        End If
        
        DoEvents
    Loop

Do
        lRet = GetMessage(MsgThreed, 0, 0, 0)
                
        If lRet = -1 Then
            ' // Error
            Exit Do
        ElseIf lRet = 0 Then
            Exit Do
        Else
            If MsgThreed.Message = WM_HOTKEY Then Exit Do ' Сообщение по которому выйдем из программы
            
            TranslateMessage MsgThreed
            DispatchMessage MsgThreed
        End If
    Loop

Do
        lRet = GetMessage(MsgThreed, 0, 0, 0)
        
        If lRet = -1 Then
            ' // Error
            Exit Do
        ElseIf lRet = 0 Then
            Exit Do
        Else
            If ExitProgram = True Then Exit Do ' Сообщение по которому выйдем из программы
            
            TranslateMessage MsgThreed
            DispatchMessage MsgThreed
        End If
    Loop

Private Sub Form_Unload(Cancel As Integer)
    ExitProgram = True
End Sub

Do While Not ExitProgram
        lRet = GetMessage(MsgThreed, 0, 0, 0)
        
        If lRet = -1 Then ' Error
            Exit Do
        ElseIf lRet = 0 Then
            Exit Do
        Else
            TranslateMessage MsgThreed
            DispatchMessage MsgThreed
        End If
    Loop

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function WaitMessage Lib "user32" () As Long
 
' Ожидать количество миллисекунд (аналог функции Sleep, только не замораживает поток)
Public Sub MyWait(milliseconds As Long)
    Dim GetTick As Long
    
    GetTick = GetTickCount
    
    While GetTickCount < GetTick + milliseconds
        WaitMessage ' Не нагружать процессор на 100% во время ожидания
        DoEvents
    Wend
End Sub

' // Create window proc
Private Function CreateWndProcCode() As Long
    Dim ptr                 As Long
    Dim hUser32             As Long
    Dim pfnDefWindowProc    As Long
    
    ptr = HeapAlloc(hCodeHeap, 0, &H1A)
    If ptr = 0 Then Exit Function
    
    hUser32 = GetModuleHandle(StrPtr("user32"))
    pfnDefWindowProc = GetProcAddress(hUser32, "DefWindowProcW") - ptr - &HF
    
    ' //    CMP DWORD [ESP+8], WM_ONCALLBACK
    ' //    JE SHORT L
    ' //    JMP DefWindowProcW
    ' // L: PUSH DWORD PTR SS:[ESP+10]
    ' //    CALL DWORD PTR SS:[ESP+10]
    ' //    RETN 10
 
    GetMem8 439819570.2913@, ByVal ptr
    GetMem8 -7205759402265.6652@, ByVal ptr + 8
    GetMem8 -446281617701647.8604@, ByVal ptr + &H10
    GetMem2 16&, ByVal ptr + &H18
    GetMem4 pfnDefWindowProc, ByVal ptr + &HB
    
    CreateWndProcCode = ptr
    
End Function

Public Function FAR_PROC( _
                ByVal pfn As PTR) As PTR
    FAR_PROC = pfn
End Function

Private Function ReceiverWndProc( _
                 ByVal hWnd As Long, _
                 ByVal lMsg As Long, _
                 ByVal wParam As Long, _
                 ByVal lParam As Long) As Long
    
    Select Case lMsg
        Case WM_MOUSEMOVE
            If lParam = WM_LBUTTONUP Then
                MsgBox "LeftClick"
            End If
        Case WM_HOTKEY
            If wParam = 88001 Then
                ExitProgram = True
                KillTimer hMsgWindow, 0
                Unload Form1
            End If
            If wParam = 88002 Then
                Form1.Show
                KillTimer hMsgWindow, 0
            End If
        Case Else
            ReceiverWndProc = DefWindowProc(hWnd, lMsg, wParam, lParam) ' err 6
    End Select
End Function