【VB】遍历Winsock数组 提供新的Winsock控件

VB 遍历 Winsock 数组，提供新的 Winsock 控件：

Public Function FindOpenWinsock()                                               '提供新的控件
    Dim i As Integer
    For i = 0 To Form1.WinSock.UBound                                           '循环查找
        If Form1.WinSock(i).State = sckClosed Then                              '如果状态为关闭
            FindOpenWinsock = i                                                 '则使用它
            Exit Function                                                       '退出过程
        End If
    Next i
    Load Form1.WinSock(Form1.WinSock.UBound + 1)                                '增加新的
    FindOpenWinsock = Form1.WinSock.UBound                                      '返回新的序号
End Function