Hola,
lo puedes hacer con la API "SetCursorPos". En este ejemplo, al hacer click en un CommandButton, el puntero del ratón se posiciona en la "X" del Form:
Código:
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click()
Dim Area As RECT
GetWindowRect Form1.hwnd, Area
SetCursorPos Area.Right - 15, Area.Top + 15
End Sub
