如何用VB制作简单的局域网聊天工具？

private sub form_load()‘设置本机连接端口的localport属性的内容‘请注意！必须是整体值tcpserver.LocalPort=2000‘将本机连接端口设置为监听模式tcpserver.ListenMe.Caption=”frmsever”Label1.Caption=”传送的文字“Label2.Caption=”接收的文字“‘打开frmclient窗体frmClient.Showend subprivate sub tcpserver_connectionrequest(byval requestid as long)‘如果tcpserver 控件的状态目前不是处于关‘闭的状态时，在允许远程设备连接时，必须要关闭目前的控制的运行if tcpserver.state<>sckclosed then tcpserver..close‘允许远程设备使用必要的识别码（requestid）与主机进行连接tcpserver.accept requestidend subprivate sub txtsend_change()‘当txtsend控件的内容发生变化时，将txtsend控件的内容，通过tcpserver控件senddata方‘法，将txtsend控件的内容传送给frmclienttcpserver.senddata txtsend.textend sub private sub tcpserver_dataarrival(byval bytestotal as long)‘声明即将接收的数据类型dim strdata as string ‘调用tcpserver控件的getdata方法，将接收的数据以vbstring数据类型，存放在strdata变量之中。Tcpserver.getdata strdata ,vbstring ‘将strdata变量的内容，存放在txtoutput控件之中。Txtreceive.text =strdataEnd sud