Una duda, pienso que simple.

Tengo este code:

Código:

Option Explicit
Private Declare Function GetAsyncKeyState _
Lib "user32" ( _
ByVal vKey As Long) As Integer
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2

Private Sub Timer1_Timer()
Dim i As Integer

For i = 1 To 1
If GetAsyncKeyState(i) = -32767 Then
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 10, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 10, 0, 0
End If
Next
End Sub

Private Sub Form_Load()
' intervalo para el timer
Timer1.Interval = 50
End Sub

Y como lo leen, sabran que lo que hace es mover el cursor a la posicion 0,20 x,y al tocar click isquierdo. Pero quiero es que si yo mantenco el click siga la accion varias veces, por que tengo que tocar 1 por 1 para que haga la acción.

Saludos y gracias!

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim N As Integer
Private Sub Timer1_Timer()
Dim i As Integer
If GetAsyncKeyState (vbKeyLButton) < 0 Then
N = N + 1
Else
N = 0
End If
Label1.Caption = N
End Sub
Private Sub Form_Load()
' intervalo para el timer
Timer1.Interval = 50
End Sub