Как зная дескриптор чужого окна сделать его неактивным?

Private Function MyHook(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
 
  Select Case uMsg
    Case WM_мышарное событие
      'можно ничего не делать - главное не возвращать управления окну
    Case Else
      'Возвращаем управление захученому окну
      MyHook= CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
  End Select

Public Sub HookForm(hw As Long)
    'hw - хэндл окна, PrevProc объяви как Long в разделе деклараций
    PrevProc = SetWindowLong(hw, GWL_WNDPROC, AddressOf MyHook)
End Sub

Public Sub UnHookForm(hw As Long)
    If PrevProc <> 0 Then
        SetWindowLong hw, GWL_WNDPROC, PrevProc
        PrevProc = 0
    End If
End Sub

Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_NCLBUTTONUP = &HA2
Public Const WM_NCLBUTTONDOWN = &HA1