[VB6] Winsock: server che invia lista di PC connessi

[x69asterix]

così credo che dovrebbe andare:

Dim i, n As Integer
 For i = 1 To ListView1.ListItems.Count
   For n = 1 To NumSockets
     Winsock1(n).SendData ListView1.ListItems(i).Text
       DoEvents
        Next
          Next
            Close

Però così alla connessione di un nuovo client questo riceverà la lista corretta, ma a quelli già connessi si andrà ad aggiungere la lista più la lista, invece a questi dovrei aggiornare solo le new entry.