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

添加成功的截圖：