ดูโค้ดให้หน่อยครับ

set protocol เป็น UDP ครับ
โค้ดฝั่ง server
Private Sub Form_Load()
winSck.RemoteHost = "225.255.255.255"
winSck.RemotePort = 50000
winSck.SendData "Hello!!!"
End Sub
โค้ดฝั่ง client
Private Sub Form_Load()
winSck.Bind 50000
End Sub

Private Sub winSck_DataArrival(ByVal bytesTotal As Long)
Dim aStr As String
winSck.GetData aStr
MsgBox aStr
End Sub

พอรันโปรแกรมแล้วไม่มี message ในฝั่ง client ขึ้นเลยครับ
ผิดที่โค้ดตรงครับ ช่วยดูให้หน่อยครับ