Envoi des donné a tous les connecté

Bonjour a tous, je cherche un moyen d'envoyer des données textes a tous les cliens connecté au serveur.
Car quand j'envoi une donné texte au serveur celui-ci la renvoi seulement a selui qu'il la envoyer.

Enfet c'est pour un tchat :

Tous les cliens se connect au serveur (sa sa fonctionne)
Quand un clien envoi le méssage , le méssage est envoyer au serveur,
Le serveur renvoi le méssage a tous les cliens .

Mais voila moi il le renvoi seulement a celui qui c'est connecté

Source Serveur :
-----------------------------------------------
Option Explicit
Const NBRE_MAXCONN = 10
Dim mClients As New Collection

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
sck.LocalPort = 2468
sck.Listen
End Sub

Private Sub sck_ConnectionRequest(ByVal requestID As Long)
   Dim c As frmConnect
   Dim i As Long
  
   For i = 1 To mClients.Count
     
       If (mClients(i).sck.State = sckClosed) Then
           mClients(i).sck.Accept requestID
           Exit Sub
       End If
   Next
  
 
   If (mClients.Count >= NBRE_MAXCONN) Then Exit Sub
  
   Set c = New frmConnect
   c.sck.Accept requestID
   frmMain.List1.AddItem sck.RemoteHostIP
   mClients.Add c
End Sub

Private Sub sck_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
   On Error GoTo 0
   sck.Close
   sck.Listen
End Sub
Private Sub sck_Close()
   sck.Close
End Sub



Dans l'otre Form (la ou les donnée sont réceptionné (frmconnect) ) :
-----------------------------------------------------------------------

Dim mClients As New Collection   'Collection regroupant les connexions en cours
Option Explicit

Private Sub Form_Load()

End Sub

Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim recu As String
sck.GetData recu

frmMain.Text1.Text = frmMain.Text1.Text & vbCrLf & recu
  
  sck.SendData recu
End Sub