這在VB 5.0中是做不到的。如果你想動(dòng)態(tài)地增加控件，必須在設(shè)計(jì)階段將控件放入Form，但可以將Visible屬性設(shè)為False，將控件的Index屬性設(shè)為0(即設(shè)置為控件數(shù)組)。然后在運(yùn)行時(shí)使用Load方法加入控件。如下面這段代碼： 
    Private Sub btnAdd_Click() 
     Static n As Integer 
     
     If n <>0 Then Load Label1(n) 
     Label1(n).Move 300, 200 + n *500 
     Label1(n).Visible = True 
     n = n + 1 
    End Sub 
    這段代碼表示，當(dāng)用戶每按一次按鈕時(shí)添加一個(gè)Label控制。 
    使用Unload可以動(dòng)態(tài)刪除控件數(shù)組中的控件。 
    在VB 6.0中，可以實(shí)現(xiàn)你的愿望，因?yàn)镕orm.Controls集合包括了Add方法、Remove方法。例如： 
    Option Explicit 
    Private WithEvents btnObj As CommandButton 
     
    Private Sub btnObj_Click() 
     MsgBox "這是動(dòng)態(tài)添加的按鈕。" 
    End Sub 
     
    Private Sub Form_Load() 
     Set btnObj = Controls.Add("VB.CommandButton", "btnObj") 
     With btnObj 
     .Visible = True 
     .Width = 2000 
     .Caption = "Hello" 
     .Top = 1000 
     .Left = 1000 
     End With 
    End Sub 
    這里使用WithEvent指定動(dòng)態(tài)添加的控件的事件。 
<END>