'//*********VB6********* '//********FORM********* '//2 bouton portant le nom btn_bouton avec un index différent '// (0 et 1 dans l'exemple). '//1 textbox portant le nom txt_text '//********FORM********* '//********CODE********* Private Sub btn_bouton_Click(param As Integer) '//param = Parramètre de "L'Événement (Event)" Dans notre '//cas, c'est l'index du bouton If param = 0 Then 'Si l'index est 0 bien sur ;) txt_text.Text = "Le bouton avec l'index 0" ElseIf param = 1 Then txt_text.Text = "Le bouton avec l'index 1" End Sub '//********CODE*********