Private Sub Form1_KeyPress(KeyAscii As Integer)
 
    Select Case KeyAscii
        Case Asc("0" ): Call cmdchiffre_Click(0)
        Case Asc("1" ): cmdchiffre_Click (1)
        Case Asc("2" ): cmdchiffre_Click (2)
        Case Asc("3" ): cmdchiffre_Click (3)
        Case Asc("4" ): cmdchiffre_Click (4)
        Case Asc("5" ): cmdchiffre_Click (5)
        Case Asc("6" ): cmdchiffre_Click (6)
        Case Asc("7" ): cmdchiffre_Click (7)
        Case Asc("8" ): cmdchiffre_Click (8)
        Case Asc("9" ): cmdchiffre_Click (9)
        Case Asc("," ): cmdvirgul_Click
        Case Asc("+" ): cmdop_Click (0)
        Case Asc("-" ): cmdop_Click (1)
        Case Asc("*" ): cmdop_Click (2)
        Case Asc("/" ): cmdop_Click (3)
        Case Asc("=" ): cmdegal_Click
    End Select
     
End Sub
 
pk ca marche po

Pardon de te le dire, mais ton code est pourri !!
 
Déja, on évite d'appeler soi même les fonctions d'évenements (xx_Click). Elles sont faites pour être appelées par le système, et ne doivent pas être appelées à la main.
 
Ensuite, je suppose que ta Form possède des boutons correspondants aux 4 opérateurs, aux 10 chiffres et éventuellement le point.
 
Il serait donc beaucoup plus simple de créer un groupe de boutons, de leur coller un index et de capter le click de cette manière :
 

 
edit: si tu pouvais changer le titre de ton topic aussi...merci !