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

[rino_2]

Hi,

I would like to know how to make the mouse Icon invisible like on some games.

Thanks

Yeah, that's the clever people's answer, now for my way of doing it...!

Create a blank cursor (Microangelo is good at doing this) and assign it to the form's MouseIcon property, then set the form's MouseCursor property to 99 - Custom.