Il punto è proprio questo, se scrivo.

codice:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dati As String
List2.Clear
Winsock1.GetData dati
List2.AddItem dati
End Sub
il server mi invia la lista ma me ne aggiunge uno solo, come vado vado avanti?
Per il close in entrambi i casi mi sono dimenticato di cancellarli, in quanto ho fatto delle prove ad inserire i dati ricevuti in un file di testo