codice:
        For counter = 0 To List1.ListCount - 1 Step 1
            nMatrice = Winsock1.Count + 1
            Load Winsock1(nMatrice)
            Winsock1(nMatrice).Connect Text1.Text, Text2.Text
        Next
se ne faccio 6 di fila in loop me ne va una sola

perchè ? (tutti gli eventi son corretti)