Winsock控件是VB6.0的一个新的功能，它可以进行两台机器之间的通讯，它分两种协议， 一种是TCP协议，即Transmission Control Protocol 传输控制协议，另一种则是UDP协议， 即User Datagram Protocol用户数据包协议 ，也就是我要讲的。
打开VB6.0，选择Microsoft Winsock Control 6.0，在左边的选择框中打勾。 控件工具箱中也就多了这个图标（放大的）：
Private Sub Form_Load() Winsock1.Bind 1000, LocalIP End Sub 第二个工程的代码：
Private Sub Form_Load() Winsock1.Bind 1001, LocalIP End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim a As String Winsock1.GetData a, vbString Text1.Text = a Enck控件，RemoteHost填要连接到的机器的主机名或IP， LocalPort填本地端口，RemotePort填远程端口，Protocol选1 – sckUDPProtocol（本例本 地端口为1000，远程端口为1001） 创建一个Command控件 创建一个Text控件
再新建一个工程，创建一个Winsock控件，LocalPort填本地端口，RemotePort填远程端口， Protocol选1 – sckUDPProtocol（本例本地端口为1001，远程端口为1000） 创建一个Text控件 注意：本地端口和远程端口不能重合
第一个工程的代码： Private Sub Command1_Click() Winsock1.SendData Text1.Text End Sub