做个客户端A，新建From1（窗体），新建txtOutput.和txtSend_（TextBox，MultiLine选True，ScrollBars选3），在VB6中使用winsock控件需要引用Microsoft Winsock Control 6.0部件拖动到窗体命名成winsock1，代码：

做个客户端B，新建From1（窗体），新建txtOutput.和txtSend_（TextBox，MultiLine选True，ScrollBars选3），代码：

然后运行后，打好字回车就发送到对方接收框了。

如果想用数组，就要对winsock1的属性中的Index从空设置到0，那么可以用这种方式：

Private Sub winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    MsgBox Index
    ...
End Sub