基础入门VB问题求答疑

[溯世]

Private Sub Command1_Click()
UdpSocket.Protocol = sckUDPProtocol '选择UDP协议
UdpSocket.RemoteHost = IPAdr.Text '选择目的IP地址
UdpSocket.RemotePort = 2006 '选择目的端口
UdpSocket.Bind 2006 '本地端口
End Sub

Private Sub Command2_Click()
UdpSocket.SendData TextSend.Text '发送信息
TextSend.Text = "" '清空发送文本框

End Sub

Private Sub Label1_Click()

End Sub

Private Sub UdpSocket_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
UdpSocket.GetData strData '接收数据
TextRecieve.Text = TextRecieve & Chr(13) & Chr(10) '在旧数据后加回车换行
TextRecieve.Text = TextRecieve & strData '将新数据加到旧数据之后
End Sub


有没有好心人帮我看看这个程序有什么问题，题目是用 ：UDP 协议设计一个聊天程序。实验平台可选用 Visual Basic 开发平台或 Visual C++开发平台等。将程序输入到计算机后运行程序，输入聊天对象的 IP 地址，确定后，开始聊天，再更换 IP 地址，与另一个聊天对象聊天。
求好心人帮忙解答，万分感谢

[脆皮大雪糕]

仔细看MSDN中关于winsock控件的说明。 或者看下面这个吧，基本上就是MSDN的那块内容 https://www.cnblogs.com/hubery/archive/2013/08/07/3244048.html