急！请高手指点，如何在窗体中动态添加控件？

Question

不使用控件数组，就是在运行时添加一个控件。例如要想添加一个文本框控件。当点击按钮时就可以添加上。
我想这样
Private Sub Command1_Click()
    Dim myText As TextBox
    myText.Text = "Hello World"
    myText.Top = 500
    myText.Left = 1000
    myText.Visible = True
End Sub运行时却提示:对象变量或with块变量未设置，他必须要引用一个现有的文本框控件才可以。在第三行加一句Set myText = Text1       'Text1是一个现有的文本框控件
但是要求却是窗体上没有任何文本框控件，就是要在运行时通过代码动态添加。如何实现？在这里先谢了。

Answer 1

Dim myText As TextBox
    Set myText = Form1.Controls.Add("vb.Textbox", "dd")
    myText.Text = "Hello World"