Detect mouse movement anywhere. [resolved]

[arsmakman]

I'm looking for an API that reacts on mouse movement, even
when the mouse is not on my form.
It would be best if it could activate a sub whenever the mouse
moves.

Searching in MSDN I found mouse_event, which seemed the
perfect solution, but the API has been superseded in Win 2000
and up. Instead I should use SendInput. When I do a
search, the most relevant page is this one, but I wouldn't
have a clue on how to integrate this API into VB...


Does anyone of you know the syntax of SendInput?
- or -
If this isn't the right API after all, what I should use?

Thanks a lot,
arsmakman.

[DiGiTaIErRoR]

Basically, you can make a timer, then make a call to retrieve the mouse coordinate.

If you do a search you should be able to find a thread here with the APIs and types you need.

[arsmakman]

After doing a search I found the following code:

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim curPos As POINTAPI
 
Private Sub Timer1_Timer()
    GetCursorPos curPos
    Text1 = "X:" + Str$(curPos.X) + " Y:" + Str$(curPos.Y)
End Sub

It works perfectly!