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

[x69asterix]

Ho un server dove i client si connettono a questo su unica porta, il server inserisce l' ip in una ListView1.ListItems.Add , , Winsock1(Index).RemoteHostIP, 1, 1
bene i vari client dovrebbero essere aggiornati dal server che dovrebbe inviare la ListView popolata, ai vari client, ho provato in questo modo ma mi aggiorna solo un client:

Private Sub Command3_Click()
Dim i
 For i = 1 To ListView1.ListItems.Count
  Winsock1(NumSockets).SendData ListView1.ListItems(i) & vbCrLf
  DoEvents
  Next
    Close
End Sub

In che modo è possibile aggiornare anche gli altri client?