我的程序
Private Sub Form_Load()
　　 With udpPeerA
　　 .RemoteHost = "197.1.1.3" '要连接到的计算机名
　　 .RemotePort=1010 '要连接到的端口号
　　 .LocalPort=1011 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
　　 .Bind 1011 '将该Winsock控制绑定到该本地端口
　　 End With
　　End Sub
　　Private Sub txtSend_Change()
　　 udpPeerA.SendData txtSend.Text'发送文本
　　End Sub
　　Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
　　 Dim strData As String
　　 udpPeerA.GetData strData,vbString
　　 txtOutput.Text = strData
　　End Sub

Private Sub Form_Load()
　　 With udpPeerB
　　 .RemoteHost = "197.1.1.3" '要连接到计算机的IP地址
　　 .RemotePort=1011 '要连接到的端口号
　　 .LocalPort=1010 '该Winsock控制将使用的本地端口号，便于其它方与之通讯
　　 .Bind 1010 '将该Winsock控制绑定到该本地端口
　　 End With
　　End Sub
　　Private Sub txtSend_Change()
　　 udpPeerB.SendData txtSend.Text '发送文本
　　End Sub
　　Private Sub udpPeerB_DataArrival(ByVal bytesTotal As Long)
　　 Dim strData As String
　　 udpPeerB.GetData strData,vbString
　　txtOutput.Text=strData
　　End Sub
运行后出现 编译错误:子程序或函数未定义 ,究竟是何解啊? 急急急~~~