Aqui te dejo un source d eun clicker que cree cuando empezaba con vb:
salu2!
Código
Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key 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) Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Private Sub command1_click() For i = 1 To Text1.Text mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, X, Y, 0, 0 Next End Sub Private Sub form_load() Timer1.Enabled = True Timer1.Interval = text2.text End Sub Private Sub timer1_timer() If GetKeyPress(vbKeyShift) Then Call command1_click End If End Sub
salu2!
xd pero con que programa ?