HideMouse

Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long)As Long
Public Constant S_CURSOR = True
Public Constant H_CURSOR = False
'Routine per nascondere o mostrare il cursore: VisCursor False

'(o True per mostrarlo)

Public Sub VisCursor(x as Boolean)
Select Case X
Case = False
While ShowCursor(H_CURSOR) >= 0
Wend
Exit Sub
Case=True
While ShowCursor(S_CURSOR) < 0
Wend
Exit Sub
End Select
End Sub