mousecursor - invisible

I need af mousepointer which is invisible (lookthruable)- can anyone point me in the right direction?
I would like to hide the mousecursor when it is over a form.

best regards
Jakob

Use the ShowCursor API.

Code:

---

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

Private Sub cmdHideCursor_Click()
    ShowCursor False  'Hide the cursor
End Sub

Private Sub cmdShowCursor_Click()
    ShowCursor True    'Show the cursor
End Sub

---

Just tested it and it works. Place a timer with interval 100 on the form. Paste this code and run.

Code:

---

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Sub Timer1_Timer()
    Static over As Boolean
    Dim mouse As POINTAPI
    GetCursorPos mouse
    If WindowFromPoint(mouse.x, mouse.y) = hWnd Then
        If Not over Then
            over = True
            ShowCursor 0
        End If
    Else
        If over Then
            over = False
            ShowCursor 1
        End If
    End If
End Sub

---

Hey guys, remember thta our friend Windows keeps track of the number of 'shows'.
So, if you do twice a ShowCursor 1&, you also should execute twice ShowCursor 0&.
Sometimes this is very annoying if we are debugging code, because the mouse cursor could be invisible!

Thats correct Compie, well my code should cope with that: The over boolean let's you know what state the cursor is in, and it only reacts if the state is changed.

Absolutely, Keda! I was just mentioning it to Jaks.