Structure PointAPI
Public x As Int32 ' Integer if you prefer
Public y As Int32 ' Integer if you prefer
End Structure
Public Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As PointAPI) As Boolean
Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Int32, ByRef lpPoint As PointAPI) As Int32
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Dim lpPoint As PointAPI
GetCursorPos(lpPoint)
Label1.Text = "x: " & CStr(lpPoint.x)
Label2.Text = "y: " & CStr(lpPoint.y)
End Sub
