17 lines
370 B
VB.net
17 lines
370 B
VB.net
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
|
|
|
|
Private Type POINTAPI
|
|
'X and Y are in pixels, with (0,0) being the top left corner of the primary display
|
|
X As Long
|
|
Y As Long
|
|
End Type
|
|
|
|
Private Pt As POINTAPI
|
|
|
|
Private Sub Timer1_Timer()
|
|
GetCursorPos Pt
|
|
Me.Cls
|
|
Me.Print "X:" & Pt.X
|
|
Me.Print "Y:" & Pt.Y
|
|
End Sub
|