Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
'Dim typPt As POINTAPI
'GetCursorPos typPt
Public Property Get CurrentX() As Long
Dim typPt As POINTAPI
GetCursorPos typPt
CurrentX = typPt.x
End Property
Public Property Get CurrentY() As Long
Dim typPt As POINTAPI
GetCursorPos typPt
CurrentX = typPt.y
End Property