Situar el puntero del ratón en la posición especificada


En un formulario agregar...

Private Declare Sub SetCursorPos Lib "User32" (ByVal X As Integer, ByVal Y As Integer) 

Seguidamente insertar un botón (cuyo nombre será Boton) en el formulario.

Private Sub Form_Load()

Dim X, Y As Long
X = (Me.Left + Command1.Left + Command1.Width / 2 + 60) / Screen.TwipsPerPixelX
Y = (Me.Top + Command1.Top + Command1.Height / 2 + 360) / Screen.TwipsPerPixelY
SetCursorPos X, Y

End Sub