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 Integer, ByVal Y _
As Integer) As Integer
 
Dim Pt As New POINTAPI
 
GetCursorPos(Pt)
SetCursorPos(Pt.x + 1, Pt.y + 1)