动态生成的控件数组,Unload其中一个,能不能将后面元素的下标向前移? (重开一贴)

Question

下面代码产生含有9个按钮的数组控件,Unload Command1(2)之后,后面的Command(3),Command(4),Command(5)...的下标,有没有办法依次前移,变成Command(2),Command(3),Command(4)... Private Sub Form_Load()
    For i = 1 To 9
        Load Command1(i)
    Next
End Sub

Answer 1

1、Index属性运行时只读，不能直接修改。
2、要卸载连续的控件数组，应该从后向前遍历，如：' 假定 Index = 0 的 Command1 为设计时添加
for i = Command1.Ubound to 1 step -1
    unload Command1(i)
next如果控件数组不连续，可以这样做：dim c  as CommandButtonfor each c in Command1
    if c.Index <> 0 then
        unload c
    end if
next

Answer 2

放弃用unload来处理，用Visible = False，结贴．