Help!! 如何动态删除控件？

[snowerhuayun]

我知道用control.add可以动态加入控件，那么如何将这些动态生成的控件删除呢？（通过程序）

[rainstormmaster]

Dim mytext As TextBox
Private Sub Command1_Click()
Set mytext = Controls.Add("VB.TextBox", "mytext", Me)
mytext.Left = 100
mytext.Top = 100
mytext.Visible = True
End Sub

Private Sub Command2_Click()
Controls.Remove mytext
End Sub

[northwolves]

Private WithEvents NewButton As CommandButton

Private Sub Command1_Click() '增加控件
If NewButton Is Nothing Then

Set NewButton = Controls.Add("VB.CommandButton", "cmdNew", Me) '增加新的按钮cmdNew

NewButton.Move Command1.Left + Command1.Width + 240, Command1.Top '确定新增按钮cmdNew的位置
NewButton.Caption = "新增的按钮"
NewButton.Visible = True
End If
End Sub


Private Sub Command2_Click() '删除控件
If NewButton Is Nothing Then
Else
Controls.Remove NewButton
Set NewButton = Nothing
End If
End Sub

Private Sub NewButton_Click() '新增控件的单击事件
MsgBox "您选中的是动态增加的按钮!"
End Sub

[watt]

Unload 不行吗？

[gzqg]

up

[Fengq]

controls.remove

[wx05]

unload 就可以了吧