如何循环产生几个textbox控件？
我在一个窗口设计了一个按钮，现在想实现如下功能，当我按下按钮的时候在跳出的一个新窗口中一下子生成4个textbox控件。
请问这要怎么实现????
[解决办法]
Option Explicit'通过使用 WithEvents 关键字声明一个对象变量为新的命令按钮Private WithEvents NewTextBox As TextBox'增加控件Private Sub Command1_Click() If NewTextBox Is Nothing Then '增加新的按钮cmdNew Set NewTextBox = Controls.Add("VB.TextBox", "TextBox", Me) '确定新增按钮cmdNew的位置 NewTextBox.Move 600, 800, 2000, 400 NewTextBox.Text = "新增文本框" NewTextBox.Visible = True End IfEnd Sub'删除控件(注：只能删除动态增加的控件)Private Sub Command2_Click() If NewTextBox Is Nothing Then Else Controls.Remove NewTextBox Set NewTextBox = Nothing End IfEnd SubPrivate Sub Form_Load() Command1.Caption = "添加" Command2.Caption = "删除"End Sub'新增控件的单击事件Private Sub NewTextBox_Click() MsgBox "您选中的是动态增加的文本框!"End SubOption Explicit'通过使用 WithEvents 关键字声明一个对象变量为新的命令按钮Private WithEvents NewTextBox As TextBox'增加控件Private Sub Command1_Click() If NewTextBox Is Nothing Then '增加新的按钮cmdNew Set NewTextBox = Controls.Add("VB.TextBox", "TextBox", Me) '确定新增按钮cmdNew的位置 NewTextBox.Move 600, 800, 2000, 400 NewTextBox.Text = "新增文本框" NewTextBox.Visible = True End IfEnd Sub'删除控件(注：只能删除动态增加的控件)Private Sub Command2_Click() If NewTextBox Is Nothing Then Else Controls.Remove NewTextBox Set NewTextBox = Nothing End IfEnd SubPrivate Sub Form_Load() Command1.Caption = "添加" Command2.Caption = "删除"End Sub'新增控件的单击事件Private Sub NewTextBox_Click() MsgBox "您选中的是动态增加的文本框!"End Sub