Mouse and Keyboard, Mouse - Getting position in screen

'Description: Returns cursor positions X and Y

'Private Type POINTAPI
' x As Long
' y As Long
'End Type

'Private Declare Function M_GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

'Public Sub GetCursorPos(xX As Long, xY As Long)
Dim pt As POINTAPI
Call M_GetCursorPos(pt)

xX = pt.x
xY = pt.y
'End Sub