muchisimas gracias y perdonad mi ignorancia pero aun no me desenvuelbo bien en este mundo de la programacion
amigo si me funciono
muchas gracias

muchas gracias por tu ayuda
en cuanto cene me pongo a probarlo a ver si me funciona
nuevamente gracias
hola ya he probado tu codigo y algo he de hacer mal
no deja de darme el mensaje :
(el numero  se pulso 4 veces ya ) una y otra vez
 
el codigo que tengo en el preograma es este:
Private Declare Function GetAsyncKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer
   
  Dim num(1 To 3) As Integer
 
   
Private Sub Timer1_Timer()

On Error Resume Next
Dim keystate As Long
keystate = GetAsyncKeyState(vbKey1)
If (keystate And &H1) = &H1 Then
num(1) = num(1) + 1
End If
keystate = GetAsyncKeyState(vbKey2)
If (keystate And &H1) = &H1 Then
num(2) = num(2) + 1
End If
keystate = GetAsyncKeyState(vbKey3)
If (keystate And &H1) = &H1 Then
num(3) = num(3) + 1
End If
'Y así con todas las teclas que quieras y luego puedes hacer un if más para ejecutar 'el mensaje.
If num(1) = 4 Then
MsgBox "el numero " & num(1)  & "  se pulso 4 veces ya"
End If
End Sub
espero que alguien vea cual es el error y me ayude gracias

no entiendo muy bien el segundo codigo , y lo he ejecutado y me da error(el procedimiento externo no es valido )
te seria muy complicado ponerme un ejemplo
gracias

hola
tengo un pequeño codigo que he creado en un form, y funciona, pero lo que yo quiero es que funcione aun estando el programa minimizado, no se si me explico
la idea es crear un pequeño programa que cuando se esta ejecutando
al pulsar alguna tecla que he definido del 1 al 9 y las letras (a,b,c) estas suman un 1 a una variable y cuando la variable sea igual a 4 me muestre un mensaje
el codigo que aqui pongo es el que empleo aunque para qe funcione tuve que emplear un text1 y me gustaria que funcione sin nesesidad de usarlo y estando la aplicacion minimisada
espero haberme explicado bien, perdonen mis errores pero no me se expresar muy bien
gracias
aqui les dejo el codigo:

Dim num(1 To 12) As Integer

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = Asc("1") Then
      num(1) = num(1) + 1
     Else
  If KeyAscii = Asc("2") Then
      num(2) = num(2) + 1
     Else
  If KeyAscii = Asc("3") Then
      num(3) = num(3) + 1
     Else
  If KeyAscii = Asc("4") Then
      num(4) = num(4) + 1
     Else
  If KeyAscii = Asc("5") Then
      num(5) = num(5) + 1
     Else
  If KeyAscii = Asc("6") Then
      num(6) = num(6) + 1
     Else
  If KeyAscii = Asc("7") Then
      num(7) = num(7) + 1
     Else
  If KeyAscii = Asc("8") Then
      num(8) = num(8) + 1
     Else
  If KeyAscii = Asc("9") Then
      num(9) = num(9) + 1
     Else
  If KeyAscii = Asc("a") Then
      num(10) = num(10) + 1
     Else
  If KeyAscii = Asc("b") Then
      num(11) = num(11) + 1
     Else
  If KeyAscii = Asc("c") Then
      num(12) = num(12) + 1
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    For x = 1 To 12
    If num(x) = 4 Then
    msgbox "el numero " & x & "  se pulso 4 veces ya"   
    End If
    Next x
 End Sub