Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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