在vb下如何动态在一个窗体上创建新控件

Question

如题：要求窗体上没有已经存在的控件数组，比如我要自己创建一个textbox，取名为：txt
如何实现，请执教：）

Answer 1

Private Sub Command1_Click()
    Dim MyLabel As Label
    Dim MyText As TextBox
    Set MyLabel = Controls.Add("VB.Label", "MyLabel")
    MyLabel.Caption = "MyLabel"
    MyLabel.Visible = True
    
    Set MyText = Controls.Add("VB.TextBox", "MyText")
    MyText.Text = "MyText"
    MyText.Top = MyLabel.Height
    MyText.Visible = True
End Sub