如何用VB发送报文

发送123返回456的啊。。。貌似我把问题想复杂了。
程序A
重新建立个程序2个文本框控件，一个是发送窗口，一个是接受窗口。一个Microsoft Winsock Control 控件。
Private Sub Form_load()
'设置双方网络地址，根据自己的情况自行设置
Winsock1LocalPort=1024
Winsock1RemoteHost="19216811"
Winsock1RemotePort=30432
End Sub
Private Sub Text1_change()
'发送用户输入的内容
Winsock1SendData Text1Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal AS Long)
Dim rec As String
'接收对方数据并在文本框内显示
Winsock1GetData rec,vbString
Text2text=rec
End Sub
程序B，窗体内控件要求和A一样。
Private Sub Form_Load()
'设置双方网络地址,根据自行条件设置怕你看不懂还要罗嗦下。
Winsock1LocalPort=1024
Winsock1RemoteHost="19216811"
Winsock1RemotePort=30432
简单就这样。你再研究研究。

---