Send til alle arrays (winsock).

Hej eksperter.

Jeg er ved at bygge en server, i VB6 ja, og endda i winsock. Måske ikke det bedste valg i server opbygning, men det er nu mere noget af et eksperiment =)

Når chat klienten sender en chat besked til serveren, laver serveren et loop der får alle dens winsock arrays til at sende beskeden til alle klienter.

Men her sker der et problem, det er kun det nyeste winsock array /den nyeste chat klient der får beskeden!

Det skal siges at det ikke er loop'et der er fejl i, da mit nuværende loop ser således ud.
      For i = 1 To Server.ubound
          If Server(i).State = 7 Then Server(i).SendData "BESKED" & Chr(0)
      Next i


Men, men, men! Hvis den eneste klient der modtager besked kobler sig fra serveren, er det en ny klient der begynder at modtage, det er dog altid den 'øverste i listen'

Nogle forslag?

Jeg har Visual Basic 6.0 Enterprise edition, kan det være at der skal bruges en udvidet version som VB6 professionel for at dette kan virke og findes der en tilhørende prøveversion?

På forhånd tak.