'Io faccio cosi:
'Uno in ascolto(Winsock1)
'Gli altri due comunicano
'(Winsock2) 'Invia i Dati
'(Winsock3) 'Riceve i Dati

Private Sub Command1_Click()
Winsock1.Close
Winsock1.LocalPort = 80
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Winsock2.SendData "CIAO"
End Sub


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock3.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Dati As String
Winsock3.GetData Dati
Text1.Text = Dati
Winsock3.SendData "Ho ricevuto i dati" & Dati & ")"
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim Dati As String
Winsock2.GetData Dati
MsgBox Dati
End Sub

'Ciao provalo non l' ho provato