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