Public Structure POINTAPI
Dim x As Integer
Dim y As Integer
End Structure
Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) _
  As Integer
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As _
Long) As Long
 
Dim Pt As New POINTAPI
GetCursorPos(Pt)
SetCursorPos(Pt.x, Pt.y)