100分！怎么动态添加一个按钮到SSTab的任一个TAB内

100分！如何动态添加一个按钮到SSTab的任一个TAB内？
如题！

[解决办法]
Private Sub Command1_Click()
SSTab1.Tab = 2
Set Command2.Container = SSTab1
Command2.Move 100, 100
End Sub

[解决办法]
Option Explicit

Private WithEvents cmdObject As CommandButton

Private Sub cmdObject_Click()
MsgBox "OK! "
End Sub

Private Sub Command1_Click()

Set cmdObject = Me.Controls.Add( "VB.CommandButton ", "btn1 ")
SSTab1.Tab = 1 '第2个标签页
Set cmdObject.Container = SSTab1
cmdObject.Left = 500
cmdObject.Top = 500
cmdObject.Caption = "确定(&O) "
cmdObject.Visible = True

End Sub


[解决办法]
未加载完
放到Private Sub Form_Activate()里亦可