Bonsoir a tous,
Dans mon code ci-dessous j'appel des boutons « Cbt », des textbox « Txt » et des frames « Fra_Txt ».

Private Sub Cbt_Click(Index As Integer)
Dim i As Long
Dim reponse As String
Dim Sans_Texte, Avec_Texte, Sans_Caption, Avec_Caption As Integer
Sans_Texte = 0
Avec_Texte = 0
Sans_Caption = 0
Avec_Caption = 0

    For i = 0 To 8

    If Trim$(Txt(i).Text) = "" Then
        Sans_Texte = Sans_Texte + 1
    Else
        Avec_Texte = Avec_Texte + 1
    End If

    If Trim$(Cbt(i).Caption) = "" Then
        Sans_Caption = Sans_Caption + 1
    Else
        Avec_Caption = Avec_Caption + 1
    End If

    If Sans_Caption = 0 Then
        If Sans_Texte = 0 Then
            AfUrbiSock_Cli.SocketSendData (Txt(i).Text)
        Else
            MsgBox "Aucune chaîne à envoyer"
                Fra_Txt(i).Visible = True
                    Fra_Txt(i).Caption = Cbt(i).Caption
        End If
    Else
        (i).Visible = False
        reponse = InputBox("Entrez le nom du bouton:")
        Cbt(i).Caption = reponse
    End If
    Next
End Sub

Quand je clique sur un de mes boutons j'aimerais que seulement l'InputBox("Entrez le nom du bouton:") de ce bouton s'ouvre.
De même pour le message box qu'il s'ouvre seulement dans le cas ou je clique sur le bouton Cbt(0) et que Txt(0) soit vide par exemple
Idem pour le SocketSendData, que le contenue de Txt(0) soit envoyer seulement si je clique sur le bouton Cbt(0) et pas sur un autre.
Mes contrôles sont indexés de cette façon :
Cbt(0) a Cbt(8)
Txt(0) a Txt(8)
Fra_Txt (0) a « Fra_Txt (8)

Quelqu'un peut m'aider svp?