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

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

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
            ReceiverWndProc = DefWindowProc(hwnd, lMsg, wParam, lParam)
        Case Else
            ReceiverWndProc = DefWindowProc(hwnd, lMsg, wParam, lParam)
    End Select
End Function

Private Type strstr1
  s As String * 8
  i As Integer
End Type
Private Type strstr2
  s As String
End Type
 
Sub sfsf()
    Dim a As strstr1, b As strstr2
    Debug.Print Len(a) '  вернет 10
    Debug.Print LenB(a) ' вернет 18
End Sub

Dim str As String
    Dim lNullPos As Long
    
    str = Space$(260)
    
    lNullPos = InStr(1, str, vbNullChar)
    
    If lNullPos Then
        MsgBox "founded!"
    End If

Private Const WM_APP = &H8000&
Private Const WM_ACTIVATE_ME As Long = (WM_APP + 16) ' Свою константу придумал из головы

Do
        WaitMessage
        
        DoEvents
    Loop

' Очередь
    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