Ratolin

1º Oculta y su contrario la cosa http://cuinl.tripod.com/Tips/hidemouse.htm

Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)

Private Sub Command1_Click()

ShowCursor& 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

ShowCursor& 1

End Sub