winsock gør vrøvl når to komponenter skal sende samtidig ?

jeg er ved at udvikle et netværks program men når to winsock komponenter sende samtidig er der kun et der sender ...
jeg bruger koden :
dim test as integer
for test = 1 to 2
if winsock(test).state = 7 then
winsock1(test).senddata "test"
end if
next test
men der er kun en af clienterne der modtager dataen "test", hvad gør jeg forkert ?

På forhånd TAK :)