怎么给SSTab控件动态添加其它控件，大家帮我看看！！

Question

'sstab有三个页
Option ExplicitDim WithEvents btn As VB.CommandButton
Dim WithEvents lst As VB.ListBoxPrivate Sub Command1_Click()
Set btn = Controls.Add("VB.CommandButton", "Button1")
    btn.Caption = "New Button"
    btn.Visible = True
    btn.Left = 100
    btn.Top = 1000
    SSTab1.Tab = 1
    Set btn.Container = SSTab1
End SubPrivate Sub btn_click()
    MsgBox "New Button Clicked"
End SubPrivate Sub Command2_Click()
Set lst = Controls.Add("VB.ListBox", "List1")
    lst.Visible = True
    lst.Left = 1400
    lst.AddItem "This is a new ListBox"
    lst.Left = 100
    lst.Top = 1000
    SSTab1.Tab = 2
    Set lst.Container = SSTab1End SubPrivate Sub lst_click()
    MsgBox lst.List(lst.ListIndex)
End Sub

Answer 1

'我的机器上可以1
Private Sub Command1_Click()        SSTab1.Tabs = 5
        SSTab1.TabsPerRow = 5
        For i = 0 To 4
            SSTab1.Tab = i
            SSTab1.Caption = i
            Load lsvTemplates(i + 1)
            Set lsvTemplates(i + 1).Container = SSTab1
            Call lsvTemplates(i + 1).Move(180, 480)
            lsvTemplates(i + 1).Visible = True
        Next iEnd Sub