Cita:
Iniciado por boluart 
abre un nuevo formulario, agregale 2 botones y pon este codigo:
Código:
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_LBUTTONUP As Long = &H202
Private Const WM_LBUTTONDOWN As Long = &H201
Private Sub Command1_Click()
Dim DaWord As Long
DaWord = MakeDWord((Command2.Width / 15) / 2, (Command2.Height / 15) / 2)
SendMessage Command2.hwnd, WM_LBUTTONDOWN, 1&, ByVal DaWord
SendMessage Command2.hwnd, WM_LBUTTONUP, 1&, ByVal DaWord
End Sub
Private Function MakeDWord(ByVal LoWord As Integer, ByVal HiWord As Integer) As Long
MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function
Private Sub Command2_Click()
MsgBox "button2"
End Sub
Muchísimas gracias, pero, ¿Podrías explicarme todo eso?
No quiero que otro me haga el autoclick, sinó hacerlo yo con mis conocimientos.