GESTION CLAVIER - TOUCHE - COMMENT CAPTER LES TOUCHES ... VB SIMPLIFIÉ

Dim touche As Integer

Public Sub form_KeyPress(KeyCode As Integer)    ' private ? : pas testé
    If touche = VK_ESCAPE Then
        End
    Else
        If touche = VK_ENTER Then
        MsgBox ("taper return")
    End If
    End If
End Sub

Private Sub Command1_Click()
    ' alors on continue ............
    msgbox "coucou return"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
    Form1.Caption = "ça sert à rien"
    Command1.Caption = "&Continuer"  ' alt + C marche donc
     Command2.Caption = "&Annuler"    ' alt + A marche donc
    Command1.Font.Bold = 10
    Command2.Font.Bold = 10
    SendKeyboardEvents = True   ' LE TRUC !!!!!!!!!!!!!!!
    
    touche = KeyCode
    
End Sub