为什么我用Winsock控件编的通信程序不能用啊,请帮帮我哦!!!

Question

这几天一直在学Winsock控件，自己也做了个简单的聊天程序。用的是UDP协议。
但是就是不能相互通信，我都快急疯了，严重打击了我的学习积极性。
请高手指教，给出具体的解决方案！~~！
或者也可以发个实例给我。
.cn
代码如下：
Private Sub Command1_Click()
Winsock1.SendData txtsend.Text
End SubPrivate Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 2000
Winsock1.RemotePort = 2001
my = Winsock1.LocalIP
Winsock1.RemoteHost = "222.18.159.136"
End SubPrivate Sub Winsock1_dataarrival(ByVal bytestotal As Long)
Dim tmp As String
Winsock1.GetData tmp, vbString
tmp = "对方地址：" + Winsock1.RemoteHostIP + Chr(13) + Chr(10) + tmp
txtmess.Text = tmp + Chr$(13) + Chr$(10) + txtmess.Text
End Sub
（以上是我的机子用的代码）Private Sub Command1_Click()
Winsock1.SendData txtsend.Text
End SubPrivate Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 2001
Winsock1.RemotePort = 2000
my = Winsock1.LocalIP
Winsock1.RemoteHost = "222.18.159.153"
End SubPrivate Sub Winsock1_dataarrival(ByVal bytestotal As Long)
Dim tmp As String
Winsock1.GetData tmp, vbString
tmp = "对方地址：" + Winsock1.RemoteHostIP + Chr(13) + Chr(10) + tmp
txtmess.Text = tmp + Chr$(13) + Chr$(10) + txtmess.Text
End Sub
（这是对方机子用的代码）有人要我把端口绑定了，但我绑定了以后还是不能互相通信。
这是为什么啊？？？？？？？？？
帮帮我啊！！！！！！！