删除动态创建的控件

Question

我想在程序中动态创建一组控件，类似于vb开发时的工具箱，但是不知道删除动态创建的控件，请大家多指导。谢谢！！！

Answer 1

'增加一个标签控件，然后把 Index 属性设置成 0
Option Explicit'创建控件
Private Sub Command1_Click()
    Load Label1(1)
    Label1(1).Left = 0
    Label1(1).Top = 0
    Label1(1).Caption = "动态控件"
    Label1(1).Visible = True
End Sub'删除控件
Private Sub Command2_Click()
    Unload Label1(1)
End Sub

Answer 2

非常感谢wzzwwz(棒子面窝头)！
但这仅仅是针对一个动态创建的控件，如果我连续创建了很多个（类型多为label和textbox），又如何删除呢？

Answer 3

for i=1 to Label1.Count
    unload label1(i-1)
next i

Answer 4

我的目的是想选中所动态创建的控件，然后用dele键删除，不知能否实现，希望在接下来的帖子中能继续得到你们的帮助，本贴就先结给分了。

Answer 5

如果能控件能获得焦点，应该可以：获得焦点之后当按下Del键的时候用代码卸载，像标签控件无法获得焦点，就只能用别的方法实现了

Answer 6

'呵呵，先回复了再说，免得到时候找不到或者看不到你的帖子
'添加一个按钮，然后把 Index 属性设置成 0
Option ExplicitPrivate Sub Command1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = 46 Then
        Unload Command1(Index)
    End If
End SubPrivate Sub Form_Load()
    Dim i As Long
    For i = 1 To 10
        Load Command1(i)
        Command1(i).Visible = True
        Command1(i).Top = Command1(i - 1).Top + Command1(i - 1).Height
    Next i
End Sub