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

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

Option Explicit
 
Private Sub Form_Load()
    SetWndProc Form1.hwnd ' Отсубклассировать первую форму
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    TerminateWndProc Form1.hwnd ' Снять субклассирование
End Sub
 
' MouseDown на первой форме во время модальности!
Public Sub Form1MouseDown()
    Print "MouseDown во время модального окна"
End Sub
 
' MouseUp на первой форме во время модальности!
Public Sub Form1MouseUp()
    Print "MouseUp во время модального окна"
End Sub

Option Explicit
 
Private Const GWL_WNDPROC = -4&
Private Const WM_DESTROY As Long = &H2
Private Const WM_LBUTTONDOWN = &H201&
Private Const WM_SETCURSOR = &H20
 
' Объявления API-функций
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
Dim glPrevWndProc As Long
 
' Эта процедура заменит стандартную оконную процедуру на пользовательскую
Public Sub SetWndProc(hwnd As Long)
    glPrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc)
End Sub
 
Public Sub TerminateWndProc(hwnd As Long)
    ' Снятие хука
    SetWindowLong hwnd, GWL_WNDPROC, glPrevWndProc
End Sub
 
' Пользовательская оконная процедура
Private Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case uMsg
        Case WM_DESTROY
            SetWindowLong hwnd, GWL_WNDPROC, glPrevWndProc
            
        Case WM_LBUTTONDOWN
            ' Этот параметр работает только когда нету на экране модальной формы
            
        Case WM_SETCURSOR ' А это сообщение работает даже во время модальности
            If lParam = &H201FFFE Then ' MouseDown во время модального окна
                Form2.Form1MouseDown
            End If
            If lParam = &H202FFFE Then ' MouseUp во время модального окна
                Form2.Form1MouseUp
            End If
    End Select
    
    ' Вызов оконной процедуры по умолчанию
    WndProc = CallWindowProc(glPrevWndProc, hwnd, uMsg, wParam, lParam)
End Function

' Пользовательская оконная процедура
Private Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case uMsg
        Case WM_DESTROY
            SetWindowLong hwnd, GWL_WNDPROC, glPrevWndProc
            
        Case WM_LBUTTONDOWN
            ' Этот параметр работает только когда нету на экране модальной формы
            
        Case WM_SETCURSOR ' А это сообщение работает даже во время модальности
            If lParam = &H201FFFE Then ' MouseDown левой кнопкой мыши во время модального окна
                Form2.Form1MouseDown
            End If
            If lParam = &H202FFFE Then ' MouseUp левой кнопкой мыши во время модального окна
                Form2.Form1MouseUp
            End If
            
            If lParam = &H204FFFE Then ' MouseDown правой кнопкой мыши во время модального окна
                Form2.Form1MouseDown
            End If
            If lParam = &H205FFFE Then ' MouseUp правой кнопкой мыши во время модального окна
                Form2.Form1MouseUp
            End If
    End Select
    
    ' Вызов оконной процедуры по умолчанию
    WndProc = CallWindowProc(glPrevWndProc, hwnd, uMsg, wParam, lParam)
End Function