Ciao a tutti,sto cercando di realizzare una piccola chat con il winsock, ho studiato quelo che c'è su msdn ma nn sono riuscito a far accettare la connessione da + utenti!

Vi posto il codice di ciò che ho fatto

Innanzi tutto metto tutti gli utenti collegati in una lista, me li riprendo da una pagina asp sul server connessa ad un db

poi quando faccio doppio click su un utente mi connetto con lui:

Private Sub lstUser_DblClick()
Dim ip_user As String

' mi riprendo lo user che ho selezionato dalla lista
user_selezionato = lstUser.Text

' mi cerco il corrispondente indirizzo IP
For i = 0 To UBound(arraynomi)
If user_selezionato = arraynomi(i, 0) Then
ip = arraynomi(i, 1)
End If
Next i

'apro la connessione verso quello User.......

tcpclient(intMax).RemoteHost = ip
tcpclient(intMax).RemotePort = 1001

' Richiama il metodo Connect per stabilire una
' connessione.

tcpclient(0).Connect

'metto un messaggio sull'output per la connessione
txtOutput.Text = txtOutput.Text & vbCrLf & "connesso con: " & user_selezionato & vbCrLf

End Sub
-------------------------------------------------------------------

sulla tcpConnection request ho fatto cosi:
Private Sub tcpclient_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load tcpclient(intMax)
tcpclient(intMax).LocalPort = 0
tcpclient(intMax).Accept requestID

End If
End Sub

----------------------------------------------------------------------
il problema è con 2 persona funzia ma se provo a fare doppio click su un altro utente la persona di prima viene estromessa.......e va in errore.............
mi potete dare una mano o fornire un esempio su cui studiare?
grazie per lle eventuali risposte