Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal y As Long)
Private Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long, lRect As RECT)
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public Sub Puntero(ByVal Objeto As Object)
Dim r As RECT, ret As Long
ret = GetWindowRect(Objeto.hwnd, r)
SetCursorPos r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2)
End Sub

Private Sub Command1_Click()
Call Puntero(Command1)
End Sub

Private Sub Form_Load()
Command1.ToolTipText = "Hola dagoba77!!"
End Sub