Vb6 commandbutton a 2 click different et plus

bonjour,
plus simple si 3 textbox de même nom ( avec
index de 0 à 2 ). exemple ?

Dim nbr As Integer
Private Sub Command1_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= Text1.Count Then
    nbr = 0
End If
For n = 0 To Text1.Count - 1
    If n <= nbr Then
        Text1(n).Visible = True
            Else
        Text1(n).Visible = False
    End If
Next n
End Sub

@+

ben, j'avais cru comprendre ça
1 click = 1 textbox
2 click = 2 textbox visibles
3 click = 3 textbox visibles ( en boucle )
c'est pas çà ? => modifier sub
dans nbr : n° click ( de 0 à 2 ) pour
mettre text1(?).visible à true ou
false, en fonction de ce que l'on veut.
plus d'infos ? @+

si c'est ca mais le click correspond a ca
1 click = 1 textbox et etxt 2 (pas bon)

moi je voudrai
1 click = 1 textbox (bon)

en fait ca marche comme je voulai mais le premier click me fait apparaitre text1 et text 2 en meme temp, c'est juste le premier click qui bug apres c'est tout bon

j'ai ca: 1 click = 2 textbox
2 click = 3 textbox visibles
3 click = 1 textbox visibles
4 click = 2 textbox visible
5 click = 3 textbox visibles

et j'aimerai avoir ca: 1 click = 1 textbox
2 click = 2 textbox visibles
3 click = 3 textbox visibles
4 click = 1 textbox visible
5 click = 2 textbox visibles
6 click = 3 textbox visibles
Merci et A+

j'ai oublié de copier/coller

Private Sub Form_Load()
nbr = -1
End Sub

@+

un grand Merci a ( Ah ) ton code marche a merveille Merci

salut a tous
question : toujour dans le meme projet mais si je remplace les textbox par des label et que je veut afficher dans les label une lettre differente a chaque click (par exemple A, B, C).
que doije modifier ou rajouter dans ce code.

Merci a tous le monde