[RESOLVED] MouseMotion

[panais]

guys

I want to put in to a frame mouse motion coordinates X,Y can u pls help?

[Jazz00006]

Ive been working on a totally independent mouse moving program, its quite good



heres some code taken from it jope it helps you

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Sub Timer1_Timer()
Label1.Caption = GetCursor
End Sub

Public Function GetCursor()
Dim wndrect As RECT
Dim mousexy As POINTAPI
GetWindowRect SelWND, wndrect
GetCursorPos mousexy
GetCursor = (mousexy.X - wndrect.Left) & "," & (mousexy.Y - wndrect.Top)
End Function

[panais]

Thx, but it seems to have a problem on :

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

do i have to do someting else? do i have to add a path or something?

Thx and good bye from far far far away

[Jazz00006]

Private Type POINTAPI
    X As Long
    Y As Long
End Type

how stupid of me.. forgot these declerations

[panais]

Thanx,i ll try it again

[panais]

thx it worked with a few changes