Probleme de recuperation de touche sur vb

Bonjour,

j'ai un petit probleme avec un petit bout de code sur visual basic express :


ce code fonctionne bien :

 
Private Sub Buff_bleu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buff_Bleu.Click

            If Me.Timer_bleu.Enabled = False Then


                Me.Timer_bleu.Enabled = True
                Me.buff_Bleu.Text = repop_bleu
                repop_bleu_decompt = repop_bleu
            Else
                Me.Timer_bleu.Enabled = False
                Me.buff_Bleu.Text = "Bleu"

            End If
      
    End Sub

mais j'ai voulu remplacer le clique par l'appui sur une touche :

 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.NumPad1 Then


            If Me.Timer_bleu.Enabled = False Then

              
                Me.Timer_bleu.Enabled = True
                Me.buff_Bleu.Text = repop_bleu
                repop_bleu_decompt = repop_bleu
            Else
                Me.Timer_bleu.Enabled = False
                Me.buff_Bleu.Text = "Bleu"

            End If
        End If
    End Sub

et quand jappuis..ya rien qui se passe XD
si quelq'un a idée avant que je pete un cable ...sa fait h que je tourne en rond..