Form - Nasconde Cursore Mouse

Api # 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