Il problema stà nel fatto che il client, si è disconnesso, ma al server succede che accetta la connessione in modo continuativo, ho fatto così:


codice:
Private Sub Winsock1_DataArrival(Index As Integer, ByVal _
    bytesTotal As Long)
    Dim vtData As String
    Dim n As Integer
    Dim Password As String
     Password = Text3.Text
     Static Autenticato As Boolean

    Winsock1(Index).GetData vtData, vbString
    Text2.Text = Text2.Text & vtData & vbCrLf
      
     If Autenticato = False Then
     If vtData = Password Then
    Autenticato = True
      ListView1.ListItems(n).ListSubItems.Add , , vtData, 1, 1
    Else
    Winsock1(Index).Close
  End If
  End If
End Sub
ma se la password è corretta accetta la connessione è fila tutto liscio.