by T-REX Software (14 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Wed 24th March 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Returns cursor positions X and Y
API Declarations
x As Long
y As Long
End Type
Private Declare Function M_GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Dim pt As POINTAPI
Call M_GetCursorPos(pt)
xX = pt.x
xY = pt.y
End Sub