MouseHide

'Inserire la seguente dichiarazione e le costanti in un modulo Bas


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