Mouse Click мимо модальной формы

Option Explicit
 
Private Sub Command1_Click()
    Form2.Show vbModal
End Sub

Option Explicit
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Sub Form_Load()
    Hook
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    UnHook
End Sub
 
Public Sub ClickMade()
    Dim mouse As POINTAPI
    Dim TheHandle As Long
    
    GetCursorPos mouse
    TheHandle = WindowFromPoint(mouse.x, mouse.y)
    
    If TheHandle = Form1.hWnd Then
        Print "Произведён клик на первой форме (мимо модальной формы)"
    ElseIf TheHandle <> Me.hWnd Then
        Print "Произведён клик в любой области экрана, кроме модального окна (мимо модальной формы)"
    End If
End Sub

Option Explicit
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Type MSLLHOOKSTRUCT
    pt As POINTAPI
    mouseData As Long
    flags As Long
    time As Long
    dwExtraInfo As Long
End Type
 
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Integer, lParam As Any) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
 
Private Const WH_MOUSE_LL = &HE&
Private Const HC_ACTION = 0
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_RBUTTONDOWN As Long = &H204
 
Dim hMouseHook As Long
 
Public Sub Hook()
    hMouseHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf LowLevelMouseProc, App.hInstance, 0)
    If hMouseHook = 0 Then MsgBox ("Mouse hook error")
End Sub
 
Public Sub UnHook()
    If hMouseHook Then UnhookWindowsHookEx (hMouseHook): hMouseHook = 0
End Sub
 
' Процедура перехвата сообщений мыши
Private Function LowLevelMouseProc(ByVal uCode As Long, ByVal wParam As Long, lParam As MSLLHOOKSTRUCT) As Long
    If uCode = HC_ACTION Then
        Select Case wParam
            Case WM_LBUTTONDOWN ' Нажатие левой кнопкой мыши
                Form2.ClickMade
                
            Case WM_RBUTTONDOWN ' Нажатие правой кнопкой мыши
                Form2.ClickMade
                
        End Select
    End If
    
    LowLevelMouseProc = CallNextHookEx(hMouseHook, uCode, wParam, lParam)
End Function

Option Explicit
 
Private Type POINTAPI
    x   As Long
    y   As Long
End Type
 
Private Const MF_STRING       As Long = &H0&
Private Const MF_SEPARATOR    As Long = &H800&
Private Const TPM_NONOTIFY    As Long = &H80&
Private Const TPM_RETURNCMD   As Long = &H100&
 
Private Declare Function GetCursorPos Lib "user32" ( _
                         ByRef lpPoint As POINTAPI) As Long
Private Declare Function CreatePopupMenu Lib "user32" () As OLE_HANDLE
Private Declare Function DestroyMenu Lib "user32" ( _
                         ByVal hMenu As OLE_HANDLE) As Long
Private Declare Function AppendMenu Lib "user32" _
                         Alias "AppendMenuW" ( _
                         ByVal hMenu As OLE_HANDLE, _
                         ByVal wFlags As Long, _
                         ByVal wIDNewItem As Long, _
                         ByRef lpNewItem As Any) As Long
Private Declare Function TrackPopupMenuEx Lib "user32" ( _
                         ByVal hMenu As OLE_HANDLE, _
                         ByVal un As Long, _
                         ByVal n1 As Long, _
                         ByVal n2 As Long, _
                         ByVal hwnd As OLE_HANDLE, _
                         ByRef lpTPMParams As Any) As Long
 
Private Sub Form_MouseDown( _
            ByRef Button As Integer, _
            ByRef Shift As Integer, _
            ByRef x As Single, _
            ByRef y As Single)
    Dim lIndex  As Long
    
    If Button = vbRightButton Then
    
        lIndex = DisplayMenu()
        
        If lIndex Then
            MsgBox lIndex & " selected"
        End If
        
    End If
    
End Sub
 
Private Function DisplayMenu() As Long
    Dim tPos    As POINTAPI
    Dim hMenu   As OLE_HANDLE
    
    GetCursorPos tPos
    
    hMenu = CreatePopupMenu()
    
    If hMenu = 0 Then Exit Function
    
    AppendMenu hMenu, MF_STRING, 1, ByVal StrPtr("Add")
    AppendMenu hMenu, MF_STRING, 2, ByVal StrPtr("Mul")
    AppendMenu hMenu, MF_STRING, 3, ByVal StrPtr("Max")
    AppendMenu hMenu, MF_SEPARATOR, 0, ByVal 0&
    AppendMenu hMenu, MF_STRING, 4, ByVal StrPtr("Normalize")
    
    DisplayMenu = TrackPopupMenuEx(hMenu, TPM_NONOTIFY Or TPM_RETURNCMD, tPos.x, tPos.y, Me.hwnd, ByVal 0&)
    
    DestroyMenu hMenu
    
End Function