Option ExplicitPrivate Sub Command1_Click() Set Frame1.Container = Me SSTab1.Tab = 0 SSTab1.Tab = 1 Set Frame1.Container = SSTab1 End SubPrivate Sub Command2_Click() Set Frame1.Container = Me SSTab1.Tab = 1 SSTab1.Tab = 0 Set Frame1.Container = SSTab1 End Sub
Set Frame1.Container = Me
SSTab1.Tab = 0
SSTab1.Tab = 1
Set Frame1.Container = SSTab1
End SubPrivate Sub Command2_Click()
Set Frame1.Container = Me
SSTab1.Tab = 1
SSTab1.Tab = 0
Set Frame1.Container = SSTab1
End Sub