VB动态加载控件方法

'添加两个控件: Command1 Command2
'在属性窗口将 Command2 改名为 CmdZu，并设置 Index 属性为 0
Private Sub Command1_Click()
'控件组有多个成员，卸载之
If CmdZu.Count > 1 Then
'卸载控件 CmdZu 1-5，0不能卸载，因为是设计时添加的
For I = 1 To 5
Unload CmdZu(I)
Next
Exit Sub
End If

'装载控件组的成员，1-5号
For I = 1 To 5
Load CmdZu(I)
CmdZu(I).Visible = True
CmdZu(I).Move CmdZu(0).Left, CmdZu(0).Top + CmdZu(0).Height * I * 1.1
CmdZu(I).Caption = "钮" & I
Next
End Sub