sstab , -75000. , , , left .
, , .
Private Sub SSTab1_Click(PreviousTab As Integer)
Dim o As Object
For Each o In Me.Controls
If TypeOf o.Container Is SSTab Then
If o.Left < -40000 Then
'control is not on the current tab
o.Visible = False
Else
'control is on the current tab
o.Visible = True
End If
End If
Next
End Sub
, , click , left > 0