如何循环产生几个textbox控件？
我在一个窗口设计了一个按钮，现在想实现如下功能，当我按下按钮的时候在跳出的一个新窗口中一下子生成4个textbox控件。

请问这要怎么实现????

[解决办法]

VB code

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