动态添加按钮时,如何先判断是否存在,不存在才动态添加呢?
Private Sub cmdadd_Click()
    Dim i As Integer
    Dim cmdw As Integer
    cmdw = cmd1(0).Width
    cmd1(0).Visible = True
    For i = 1 To 10
        '如何先进行判断，如果动态添加了，就不加了
        Load cmd1(i)    '如果第二次运行就会出现，因为已经创建了
        cmd1(i).Tag = "A"     'tag标记
        cmd1(i).Top = cmd1(i - 1).Top
        cmd1(i).Left = cmd1(i - 1).Left + cmdw + 10
        cmd1(i).Visible = True
    Next
End Sub

一种思路是利用错误，即Err对象

' 写在过程中
On Error Resume Next

DoSomething '执行一段可能产生错误的代码

If Err Then
 '刚才发生了错误
 '复位错误对象
 Err.Clear
 '处理错误
 DoSomething_Error
Else
 '刚才没有发生错误
 DoSomething_NoError
End If

我不想用忽略错误的办法.
请再给点别的思路.

1\如果你这个控件是按顺序下去的话.那么你可以读到这个控件数组的最大数量,然后再接着加载.
2\如果你这个控件,是按顺序加载,但会随机释放,那么你也可以用上面的办法,只是不过是先读最后一个控件的序数.
3\如果你要求是 顺序加载,随机释放,然后又要求重复使用序号,就要一个一个的判断,生一个子函数,进行判断,需要使用 ERR 对象.

第一种   
   For i = cmd1.conut To cmd1.conut + 10    '假设你的控件下标是 从 0 起,中间不空
        '如何先进行判断，如果动态添加了，就不加了
        Load cmd1(i)    '如果第二次运行就会出现，因为已经创建了
        cmd1(i).Tag = "A"     'tag标记
        cmd1(i).Top = cmd1(i - 1).Top
        cmd1(i).Left = cmd1(i - 1).Left + cmdw + 10
        cmd1(i).Visible = True
    Next
第二种
   For i =cmd1(cmd1.conut-1).index To cmd1(cmd1.conut-1).index + 10    '假设你的控件下标是 从 0 起,中间不空
        '如何先进行判断，如果动态添加了，就不加了
        Load cmd1(i)    '如果第二次运行就会出现，因为已经创建了
        cmd1(i).Tag = "A"     'tag标记
        cmd1(i).Top = cmd1(i - 1).Top
        cmd1(i).Left = cmd1(i - 1).Left + cmdw + 10
        cmd1(i).Visible = True
    Next

第三种就不写代码了.

每次添加时都用个变量记录下。

cmd1是集合嘛，用集合的特点解决。

请教一下您的思路，如何用集合的办法解决。我认为加tag标记是最简单的办法了，还是更好的办法吗？