olá pessoal,

como faco pra deixar o crusor do mouse invisivel?

ou....

 

'Este código esconde o cursor (mouse) de um form

'num múdulo

 

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

'Para usar coloque os códigos abaixo em dois botões

'Esse código esconde o cursor
Public Sub MouseInvisivel()
   ShowCursor False
End Sub

'Esse código mostra o cursor novamente
Public Sub MouseVisivel()
   Do While ShowCursor(True) < 0
   Loop
End Sub

 

'******como usar*******************
'----------------------------------

'Private Sub Command1_Click()
'MouseVisivel

'End Sub

'Private Sub Command2_Click()
'  MouseInvisivel
'End Sub

 

Valeu galera, problema resolvido.