一个电脑上udp问题

'udp应用一： 
　　'建立一个新标准exe工程文件，拖放一个winsock控制到表单上，添加两个文本框到表单上，然后进行以下属性的设置： 
　　'表单（form):name=“frmpeera” caption=“udp application（1)” 
　　'winsock控制：name=“udppeera” protocol=“sckudpprotocol” 
　　'文本框1（textbox): name“txtsend” 
　　'文本框2（tcxtbox): name=“txtoutput” multiline－true scrollbars=2 
　　'然后打开代码窗口，分别在相应的事件下输入以下代码： 
　　private sub form_load（) 
　　 with udppeera 
　　 .remotehost=“197.1.1.2” '要连接到的计算机名 
　　 .remoteport=1010 '要连接到的端口号 
　　 .localport=1011 '该winsock控制将要使用的本地端口号，便于其它端与该winsock通讯 
　　 .bind 1011 '将该winsock控制绑定到该本地端口 
　　 endwith 
　　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 
　　'udp应用二： 
　　'类似建立udp server的方法，在表单上添加一个winsock控制及两个文本框，然后进行以下属性的设置： 
　　'表单（form):name=“frmpeerb” caption=“udp application（2)” 
　　winsock控制：name=“udppeerb” protocol=“sckudpprotoclool” 
　　'文本框1（textbox)：name=“txtsend” 
　　'文本框2（textbox)：name=“txtoutput” multiline=true scrollbars=2 
　　'然后输入以下代码： 
　　private sub form_load（) 
　　 with udppeerb 
　　 .remotehost=“197.1.1.2” '要连接到计算机的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