winsock senddata 问题

Question

Private Sub CmdStar_Click()
winsock1.senddata 77
winsock1.senddata 66
winsock1.senddata 55
end sub发现第一次按CmdStar 
服务器只接收到了77
第二次接时，收到66
第三次按时收到55
再接第四次，便又是77
以此往复~~~哪位达人能说说这是怎么回事啊按CmdStar不是77 66 55 接连发出去，而是按一次只发其实一个

Answer 1

winsock1.senddata 77
doevents
winsock1.senddata 66
doevents
winsock1.senddata 55
doevents

Answer 2

private sub cmd1_click()
dim a() as integer
a(0)=77
a(1)=66
a(2)=55
for i=0 to 2 
sock1.senddata a(i)
next i
end sub