by Karthikeyan (187 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 23rd January 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
'Get Cursor Position using GetCursorPos API
API Declarations
X As Long
Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32.dll" (xyPoint As POINT_TYPE) As Long
'http://www.geocities.com/marskarthik
'http://marskarthik.virtualave.net
'Email: [email protected]
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 5
End Sub
Private Sub Timer1_Timer()
Dim cp As POINT_TYPE
Dim rval As Long
rval = GetCursorPos(cp) ' Get cursor location
Label1.Caption = "The mouse is at X=" & cp.X & " Y=" & cp.Y
End Sub