Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Timer1_Timer()
	Dim a As POINTAPI
	GetCursorPos a
	Text1.Text = "x=" & a.x & ", y=" & a.y
End Sub