VB编写ActiveX控件时动态添加控件到顶层UserControl

自己琢磨了许久，还是写出来了

遇到奇葩问题，不知道大侠们能帮我解决困惑不

动态添加控件到UserControl代码如下：Private Sub Command1_Click()
Dim testText As TextBox
' Set testText = UserControl.Controls.Add("VB.TextBox", "testText", UserControl1) '工程中有UserControl1（顶层容器）,但代码执行为空值
Set testText = UserControl.Controls.Add("VB.TextBox", "testText", UserControl.Controls(0).Container) '这样又可以添加到顶层容器里面，真搞不清楚为什么
' Set testText = UserControl.Controls.Add("VB.TextBox", "testText", Frame1) '注意这段代码中UserControl不是控件名，是active的主控件
With testText
.Top = 1000
.Left = 1000
.Text = "测试文本框"
.Visible = True
.Locked = True
.Width = 2000
.Height = 375
End With
End Sub

添加成功的截图：