Sub Combo1_Click ()
    fonctions (0)
   
End Sub

Sub Combo2_Click ()
  fonctions (1)
End Sub

Sub Form_Load ()
  Combo1.AddItem "aucun"
  Combo1.AddItem "verbal"
  Combo1.AddItem "sujet"
  Combo1.AddItem "nominal"
  Combo1.AddItem "c. circ."
  Combo1.AddItem "C. du nom"
  Combo1.AddItem "COD"
  Combo1.ListIndex = 0
  Combo2.AddItem "aucun"
  Combo2.AddItem "verbe"
  Combo2.AddItem "nom"
  Combo2.AddItem "déterminant"
  Combo2.AddItem "adjectif"
  Combo2.AddItem "comp./sup."
  Combo2.AddItem "adverbe"
  Combo2.AddItem "préposition"
  Combo2.AddItem "pronom"
  Combo2.ListIndex = 0
  label3.Caption = "Ceci est un essai de" & Chr(13) & "retour à"
  label3.Caption = label3.Caption & Chr(13) & " la ligne sur plusieurs"
  label3.Caption = label3.Caption & Chr(13) & " lignes."
  Call init_niveaux
  form1.Show
End Sub