关于聊天程序？解决方法

关于聊天程序？
我想先实现在一台机器上的对话，然后再实现两台机器上的对话：
主机：（添加两个文本框，一个winsock控件）
Private   Sub   Form_Load()
    Winsock1.LocalPort   =   1024
    Winsock1.RemoteHost   =   "172.18.20.31 "
    Winsock1.RemotePort   =   1999
End   Sub

Private   Sub   Text1_Change()
    Winsock1.SendData   Text1.Text
End   Sub

Private   Sub   Winsock1_DataArrival(ByVal   bytesTotal   As   Long)
      Dim   rec   As   String
'接收对方数据并在文本框内显示
  Winsock1.GetData   rec
  Text2.Text   =   rec
End   Sub

副机：
Private   Sub   Form_Load()
    Winsock1.LocalPort   =   1999
    Winsock1.RemoteHost   =   "172.18.20.31 "
    Winsock1.RemotePort   =   1024
End   Sub

Private   Sub   Text1_Change()
    Winsock1.SendData   Text1.Text
End   Sub

Private   Sub   Winsock1_DataArrival(ByVal   bytesTotal   As   Long)
      Dim   rec   As   String
'接收对方数据并在文本框内显示
  Winsock1.GetData   rec
  Text2.Text   =   rec
End   Sub
我同时把两程序编译成.exe，然后同时运行.exe，在主机程序文本框输东西就报错，
可还是不行，报the   connection   is   reset   by   remote   side   .我想是不是我的ip和端口号设置不对呢？
我还想实现两台通话呢   ？请大家帮我！

[解决办法]
Private Sub Form_Load()
Winsock1.LocalPort = 1024
Winsock1.RemoteHost = "172.18.20.31 "
Winsock1.RemotePort = 1999
winsock1.bind
End Sub

主机和副机里边都得加上这一句
winsock1.bind
否则不能发送数据的。