Lo necesario
2 timers
2 buttons
3 optionbuttons
(Se activa a f1 y se desactiva a f2)
Codigo
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
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 MOUSELEF*** = &H2 ' left button down /This is actually MOUSEEVENTF_LEF***
Private Const MOUSELEFTUP = &H4 ' left button up /This is actually MOUSEEVENTF_LEFTUP
Private Const KEY_TOGGLED As Integer = &H1
Private Const KEY_PRESSED As Integer = &H1000

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()

Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Option1_Click()
Timer1.Interval = (150)
End Sub

Private Sub Option2_Click()
Timer1.Interval = (50)
End Sub

Private Sub Option3_Click()
Timer1.Interval = (1)
End Sub

Private Sub Timer1_Timer()
mouse_event MOUSELEF***, 0, 0, 0, 0 'left button goes down
mouse_event MOUSELEFTUP, 0, 0, 0, 0 'left button comes up
End Sub

Private Sub Timer2_Timer()
If GetKeyState (vbKeyF1) And KEY_PRESSED Then
Timer1.Enabled = True
ElseIf GetKeyState (vbKeyF2) And KEY_PRESSED Then
Timer1.Enabled = False
End If
End Sub
Ejemplo De autoclick echo por mi configurado a medida
https://www.picasaweb.google.com/109099385965406307463/Cats5000?authkey=Gv1sRgCPyHg-P71NKJGA#5611404519145598050

Este autoclick es escho para boombang pero con unos conocimientos basicos de ingles puedes ponerlo a medida


PD: Es mi primer post