envoi Serveur HTTP >> Client

Bonjour et bonne fête

Mon projet:
Dans mon programme, j'utilise des contrôles winsock afin de créer un serveur
HTTP gérant les pages et les GET/POST. A partir d'un navigateur (le client),
on accède aux pages du serveur : Donc là pas de problème tout fonctionne...

Voici le code de base
Sub load_defaults()
On Error GoTo Error:
Dim tport As String
Dim bPortChanged As Boolean
http_port = IIf(http_port = 0, 80, http_port)
ttlConnections = 0

With frmMain
.serveurw.Close
Do
On Error Resume Next
.serveurw.LocalPort = http_port
.serveurw.Listen
If Err.Number = 0 Then
Exit Do
Else
http_port = http_port + 1
End If
Err.Clear
Loop
On Error GoTo Error
tport$ = ""
If http_port = 80 Then tport$ = "" Else: tport$ = ":" & http_port
End With
Exit Sub
Error:
MsgBox "Erreur de communication avec un ClientWeb.", vbMsgBoxSetForeground +
vbInformation
frmMain.serveurw.Close
End Sub

Private Sub serveurw_ConnectionRequest(ByVal requestID As Long)
ttlConnections = clientw.UBound + 1
Load clientw(ttlConnections)
clientw(ttlConnections).Tag = serveurw.RemoteHostIP
clientw(ttlConnections).Close
clientw(ttlConnections).LocalPort = 0
clientw(ttlConnections).Accept requestID
End Sub

Private Sub clientw_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
clientw(Index).GetData strdata$
creationdelapage_etenvoie(strdata$)
End Sub

Private Sub clientw_SendComplete(Index As Integer)
strdata$=""
clientw(Index).Close
Unload clientw(Index)
End Sub


Ce que j'envisage est de mettre à jour l'affichage des pages des clients
lors d'un événement du programme : C'est à dire envoyer une nouvelle page
aux clients qui ont été connectés. J'ai essayé plusieurs méthodes mais sans
succés...

Pourriez-vous m'aiguiller???

Cordialement

GuY