Private Sub Command1_Click()
SSTab1.Tabs = 3
SSTab1.Tab = 0
Set Text1.Container = SSTab1
SSTab1.Tab = 1
Set Text2.Container = SSTab1
Text1.Move SSTab1.Width \ 2, SSTab1.Height \ 2
Text2.Move SSTab1.Width \ 2, SSTab1.Height \ 2
End Sub
SSTab1.Tabs = 3
SSTab1.Tab = 0
Set Text1.Container = SSTab1
SSTab1.Tab = 1
Set Text2.Container = SSTab1
Text1.Move SSTab1.Width \ 2, SSTab1.Height \ 2
Text2.Move SSTab1.Width \ 2, SSTab1.Height \ 2
End Sub
SSTab1.Tab =x指定第X页