Primo codice il server accetta solo una connessione:
Il client si connette ad esso ed invia
codice:
Private Sub Winsock1_Connect()
Dim Password As String
Password = Text5.Text
Winsock1.SendData Password
End Sub
Il server verifica:

codice:
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
 If Winsock1.State <> sckClosed Then Winsock1.Close
 Winsock1.Accept requestID
 
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim Password As String
Password = Text3.Text
Static Autenticato As Boolean
Dim Dati As String
Winsock1.GetData Dati, vbString
DoEvents
List2.AddItem List2.Text & "remoto> " & Dati '& vbCrLf  ' Aggiunge il Testo

If Autenticato = False Then
  If Dati = Password Then
    Autenticato = True
    List1.AddItem Winsock1.RemoteHostIP
    List2.AddItem "Welcome.."
    Winsock1.SendData "Welcome " & Winsock1.RemoteHostIP
  Else
    Winsock1.Close
  End If
  
End If

End Sub
La connessione è stata accettata.

Ma se il servere accetta connessione multiple come inserisco l'autenticazione?