Visual Basic - Deshabilitar el ratón

Necesito que el ratón no funcione mientras dure la ejecución de un programa.
¿Como lo deshabilito?

Este codigo no deshabilita el raton exactamente, pero oculta el puntero.Es posible que sirva para tu proposito

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Activate()
'Al mostrarse el formulario desaparece el cursor del mouse
ShowCursor False
End Sub
Private Sub Form_KeyPress(ByVal KeyAscii As Integer)
'Presionando el 7 se termina la ejecucion y se recupera el cursor
If Chr(KeyAscii) = "7" Then
ShowCursor True
End
End If
End Sub

Saludos