WinSock的UDP问题！

Question

'服务器
private sub form_load()
with
.protocol=sckudpprotocol
.remotehost="255.255.255.255"
.remoteport=8888
.bind
end with
end sub
private sub command1_click()
winsock1.senddata "hi"
end sub'客户
private sub form_load()
with
.protocol=sckudpprotocol
.localport=8888
.bind
end with
end sub
private sub winsock1_dataarrival(byval bytesttotal as long)
dim s as string
winsock.getdata s
me.caption=s
end sub
'''以上代码在VB6通过