Vb6 commandButton, label, caption

Bonjour a tous
j'aimerai pouvoir rajouter une lettre a chaque fois que je click sur un cmd
Avec : 2 commandbutton
........: 1 label : s'appel (labeltext1) pour l'exemple uniquement

une lettre differente dans chaque caption du label1
expl :
commandbutton 1 = click 1 = labeltext 1 = A ... (bon)
commandbutton 2 = click 2 = labeltext 1 = B ... (bon)

j'ai rajouter le code de caption mais ca bug, la premiere lettre ne s'ecrit pas et les autres bug

si je click sur : commandbutton 1 = click 1 = labeltext 1 = ( aucun texte ) ( pas bon)
si je click sur : commandbutton 1 = click 2 = labeltext 1 = A .. (bon)
si je click sur : commandbutton 1 = click 3 = labeltext 1 = A ...(bon)

si je click sur : commandbutton 2 = click 4 = labeltext 1 = A ...( pas bon)
si je click sur : commandbutton 2 = click 5 = labeltext 1 = B ...(bon)
si je click sur : commandbutton 2 = click 6 = labeltext 1 = B ...(bon)

si je click sur : commandbutton 1 = click 7 = labeltext 1 = B ...( pas bon)

voici le code :
--------------------------------------------------------
Private Sub command1_Click()
Dim n As Integer
nbr = nbr + 1
If nbr >= label1.Count Then
nbr = 0
End If
For n = 0 To label1.Count - 1
If n <= nbr Then
label1(n).Visible = True
Else
label1(n).Visible = False

'Ma modif en essay.
label1(n).Caption = "A"

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

'Ma modif en essay.
label1(n).Caption = "B"
End If
Next n
End Sub
---------------------------------------------------------------------
Private Sub Form_Load()
nbr = -1
----------------------------------------------------------------------
Dim nbr As Integer
----------------------------------------------------------------------
Merci a tous ceux qui vont m'aider et aux autre aussi