Option Explicit
Dim z As POINTAPI 'Declare variable

Private Sub Timer1_Timer()
GetCursorPos z 'Get Co-ordinets
Label1 = "x: " & z.x 'Get x co-ordinets
Label2 = "y: " & z.y 'Get y co-ordinets
End Sub