Making the mouse icon invisible!

[Yonatan]

Use the ShowCursor API.

Option Explicit


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


Private Sub HideCursor(Optional ByVal bHidden As Boolean = True)
    Call ShowCursor(Not bHidden)
End Sub

Usage:
To hide the cursor, use:
Call HideCursor
Or:
Call HideCursor(True)
To show the cursor, use:
Call HideCursor(False)

Note: If you hide the cursor "twice" or more, you will to show it "twice" or more until it appears, and vice versa.

------------------
Yonatan
Teenage Programmer
E-Mail: [email protected]
ICQ: 19552879