Problema: apretar tecla al hacer click

[Demereth]

Hola, quiero que en un programa cuando haga click, se aprete, por ejemplo la tecla 1 del numpad, pero no puedo lograrlo ya que cuando lo pruebo al hacer click no pasa nada.
El programa nomas lleva un timer
el codigo es este:

Código [Seleccionar] Expandir

Const KEYEVENTF_KEYUP = &H2
Const KEYEVENTF_EXTENDEDKEY = &H1
 
  Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
'Declaración del Api keybd_event para la presión de tecla
Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
Private Const LEFT_DOWN = &H2
Private Const LEFT_UP = &H4
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
 
 
 
Sub Pulsar_Tecla(Tecla As Long)
 
    Call keybd_event(Tecla, 0, 0, 0)
 
    Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
 
End Sub
 



Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Dim i As Integer
     
    For i = 0 To 255
        If GetAsyncKeyState(1) = -32767 Then Call Pulsar_Tecla(vbKeyNumpad1)
         Next
End Sub


End Sub

Y cuando en vez de click, le pongo cualquier otra key, por ejemplo la A (65) el programa funciona bien, el problema es el click izquierdo.
Gracias