Code: Show/Hide Private Sub tbsOptions_Click()
Dim i As Integer 'show and enable the selected tab's controls 'and hide and disable all others For i = 0 To tbsOptions.Tabs.count - 1 If i = tbsOptions.SelectedItem.index - 1 Then picOptions(i).Left = 15 picOptions(i).Enabled = True picOptions(i).Top = 32 Else picOptions(i).Left = -5000 picOptions(i).Enabled = False End If Next End Sub |