Option Explicit
Private Declare Function GetWindowRect& Lib "user32" (ByVal hwnd As Long, lRect As RECT)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
 
Public Sub CentrarYHacerClick(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)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2), 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, r.Right - ((r.Right - r.Left) / 2), r.Bottom - ((r.Bottom - r.Top) / 2), 0, 0)
End Sub

Private Sub Command1_Click()
Call Beep
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Call CentrarYHacerClick(Command1)
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub