求教winsockt的用法！

求教winsockt的用法！
我是把VB的帮助程序中的，WINSOCKT使用中的一个举例程序用了一下
可是，运行起来还是不行，先说，只用UDP协议的这个程序吧，
用BIND方法时：本地端口设置：.RemotePort = 1001 '连接的端口号。.Bind 1002
远程端口设置：.RemotePort = 1002 '要连接的端口 .Bind 1001
不是就应该这么设置吗？可是应用是时，老是出错，错误点就指在这里？有哪位高手能解疑一下？小 弟感激涕零！另外再问一下，这个端口号，是不是随便设置的，1003,或者是0001,都可以？有什么格式规定吗？一直也找不到这方面的书，真是郁闷了！
下面是原始程序：另外，我因为是要在本地一个机器上运行，所以将计算机名设成了一样，但是端口地址的设置应该是合法的啊，我没有修收端口的设置
原始程序：本地端口：Private Sub Form_Load()
'控件的名字为 udpPeerA
With udpPeerA
'重点:必须将 RemoteHost 的值
'修改为计算机的名字。
.RemoteHost = "682AA053FAB44E2"
.RemotePort = 1006 '连接的端口号。
.Bind 1005 '绑定到本地的端口。
End With
frmpeerb.Show '显示第二个窗体。
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
txtoutput.Text = strData
End Sub

异地端口：
Private Sub Form_Load()
'控件的名字为 udpPeerB。
With udpPeerB
'重点:必须将 RemoteHost 的值改为
'计算机的名字。
.RemoteHost = "682AA053FAB44E2"
.RemotePort = 1005 '要连接的端口。
.Bind 1006 '绑定到本地的端口上。
End With
End Sub

Private Sub txtoutput_Change()

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
txtoutput.Text = strData
End Sub