如何判断当前要加载的控件已经加载过，详请请进，急，在线等待，马上给分

Question

如何判断当前要加载的控件已经加载过，比方说，我动态加载了load winsock(2),load winsock(1),
在我代码中有地方要unload winsock(2),unload winsock(1),有地方还要重新加载这些控件，我如何判断当前加载的winsock(2),已经加载还没有卸载呢

Answer 1

自己写个函数：Public Function Loaded(obj As Object) As Boolean
On Error GoTo aaaa
    Dim i As Long
    i = obj.Index
    Loaded = True
Exit Function
aaaa:
    Loaded = False
End Function

Answer 2

调用： msgbox loaded(winsock(2))

Answer 3

Function Loaded(Ctrls As Object, Index As Integer) As Boolean
    Dim obj As Object
    For Each obj In Ctrls
        If obj.Index = Index Then
            Loaded = True
            Exit Function
        End If
    Next
End Function

Answer 4

我写的那个函数没有问题，调用时须注意
比如窗体中中的控件数组是Command1(0),Command1(1)...,要判断Command1(2)是否加载，这么调用
msgbox Loaded(Command1,2)