程序代码：

Dim i As Long
For i = 0 To sck2.Count                                     'sck2为连接控件组
    If sck2(i).State = 6 Or sck2(i).State = 7 Then          '正在连接或已连接
    Else                                                    '否则
        sck2(i).Close                                       '关闭
        DoEvents
    End If
    If sck2(i).State = 0 Then                               '为关闭
        Exit For
    End If
Next i
If i = sck2.Count Then                                      '如果没找到
    Load sck2(i)                                            '则加载一个
End If
sck2(i).Accept requestID                                    '接收连接

程序代码：

Private Sub sck2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim xx As String
sck2(Index).GetData xx              '取消息
Dim i As Long
For i = 0 To sck2.Count - 1         '遍类所有的
    If i <> Index Then              '如果不是收消息的这个
        If sck2(i).State = 7 Then   '没有断线
            sck2(i).SendData xx     '发给所有的，可以带上一些其他内容一起发。
        End If
    End If
Next i
End Sub