动态增减控件解决办法

动态增减控件
如何用Controls属性的ADD方法增加控件数组,实现像QQ一样的增减用户和用户组的功能!

[解决办法]
'
'初始画面上只有command(0)

Option Explicit
Dim i As Integer

Private Sub Command2_Click()
i = i + 1
Load Command1(i) '增加控件
Command1(i).Visible = True
Command1(i).Left = (i - 1) * 1000
Command1(i).Top = 0
Set Command1(i).Container = Me.Frame1‘设置所属的容器
'unload
'Me.Frame1.c
End Sub

Private Sub Command3_Click()
Unload Command1(i) '删除控件
i = i - 1
End Sub