Asi como con hook del teclado a bajo nivel puedes bloquear todo el teclado, lo mismo pasa con el mouse

WH_MOUSE_LL y no devuelves nada

Public 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

Dim Mouse As Long

    Mouse = SetWindowsHookEx(WH_MOUSE_LL, -1, App.hInstance, 0)
''''''''''''''
' PARA DESBLOQUEAR API
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

UnhookWindowsHookEx MAUSE 'PARA desbloquear le pasas la id obtenida anteriormente