You need to use the following API call to move the mouse
Type POINTAPI
X As Long
Y As Long
End Type
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetCursor Lib "user32" () As Long
private sub Button1_click()
Dim Pos As POINTAPI
r = GetCursorPos(Pos)
r = SetCursorPos(newx,newy)
'newx and newy should be the screen x and y coordinated Button2
end sub
private sub Button2_click()
Dim Pos As POINTAPI
r = GetCursorPos(Pos)
r = SetCursorPos(newx,newy)
'newx and newy should be the screen x and y coordinated Button3
end sub