Bonjour
je vous remerciez pour votre aide ,c'étais un problème d'indexage aux niveau du groupe de control .
Bon j'ai voulu savoir s'il y un code à écrire pour pouvoir exécuter des instruction à chaque clic sur le meme  boton.
Exemple: pour la 1er clic une évenement qui se déclenche  les autres attend  jusqu'à ce qu'il y a un 2em clic
et ainsi de suite on prenant compte que les évenement sont produitent par le même boton .
J'éspère que l'idée est clair  .
Merci bc .

Salut
Merci pour votre réponse et voilà c que j'ai voulu faire
Private Sub Command1_Click()
Static i As Integer
If i = 0 Then
If Combo2.Text = "0" Then

'***********************out Q0
Shape9(1).Visible = True
Shape10(1).Visible = False
Shape11(1).Visible = True
Shape12(1).Visible = False
Shape13(1).Visible = True
Shape14(1).Visible = False
Shape15(1).Visible = False
Shape16(1).Visible = True
i = i + 1
ElseIf i = 1 Then
'************************ out Q1
Shape9(1).Visible = True
Shape10(1).Visible = False
Shape11(1).Visible = True
Shape12(1).Visible = False
Shape13(1).Visible = False
Shape14(1).Visible = True
Shape15(1).Visible = True
Shape16(1).Visible = False
i = 0
End If
End If
End Sub

Salut
j'ai trouvé l'astuce pour que mon code soit exécutable , c d'utiliser .ItemData  qui  définit un numéro spécifique pour chaque élément d'un contrôle Combo
//// If Combo2.ItemData(0) = "0" Then ////
Merci bien