Visual Basic 6 - [VB6]Chat MultiClient

Espongo subito il mio problema.
Sto creando una Chat MultiClient, con connessione al server e tutto il resto.
Il problema sta nel fatto che il server invia il messaggio testuale soltanto all'ultimo client connesso.
Mi spiego meglio

Client[1] -> Connesso Server
Client[2] -> Connesso Server
Client[3] -> Connesso Server

Client[1] -> Manda un messaggio -> Server lo riceve e lo rimanda ai clients -> Client[1] e Client[2] non ricevono il messaggio ma il Client[3] si.

Il messaggio, di norma, dovrebbe essere visualizzato da tutti e tre i clients!
Non riesco a capire dove sta il problema.
Questo è il codice

Private Sub sckt_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim DATI As String
Dim client_connected As Integer

sckt(Index).GetData DATI
For client_connected = 1 To NumSocket
If sckt(client_connected).State = sckConnected Then
sckt(client_connected).SendData DATI
End If

Next client_connected
End Sub

Spero di essere nella sezione giusta e di aver esposto correttamente il mio problema.
Grazie in anticipo!

SleepRoot.

visual-basic.it/articoli/…