Visual Basic

Public Class uxcMainFrm
    Private ConditionalControlItems As New ArrayList	' List of Conditional Controls
    Private Enum eProp As Integer
        enabled = 0
        visible = 1
    End Enum
    '
    Private Sub uxcMainFrm_Load(....) Handles MyBase.Load
        Call getlistConditionalControls()		' Define Conditional Controls
        Call displayConditionalControls()		' Disable or Hide Controls Based on Cur Tab
    End Sub
    '
    Private Sub uxcMainTabs_SelectedIndexChanged(....) Handles uxcMainTabs.SelectedIndexChanged
        Call displayConditionalControls()		' Disable or Hide Controls Based on Cur Tab
    End Sub
    '
    Private Sub getlistConditionalControls()
	' Toolstrip Buttons
        Call defineConditionalControl(6, eProp.visible, uxExpandBtn)    ' Tabs #2 & #3
        Call defineConditionalControl(3, eProp.visible, uxCollapseBtn)  ' Tabs #1 & #2
        ' .... and so on
	'
	' Main Menu Items
        Call defineConditionalControl(4, eProp.enabled, uxCreateMnuI, "To Enable:  Select This or That")
        Call defineConditionalControl(6, eProp.enabled, uxRotateMnuI, "To Enable:  Select This or That")
        ' .... and so on
    End Sub
    Private Sub defineConditionalControl(ByVal tabs As Integer, _
        ByVal prop As Boolean, ByRef control As ToolStripItem, ByVal altTooltip As String)
        '
        ConditionalControlItems.Add(New ConditionalControl(tabs, prop, control, altTooltip))
    End Sub    
    Private Sub displayConditionalControls()
        For Each ctrl As ConditionalControl In ConditionalControlItems
            ctrl.setDisplay(2 ^ uxcMainTabs.SelectedIndex)	' Convert Base0 Tab# to Bit Flag
        Next
    End Sub
end class
'
Public Class ConditionalControl
    Inherits ToolStripItem
    '
    Private _specTabs As Integer            ' Specified Tabs to chk for - Bitwise enum
    Private _Prop As Boolean                ' Which Property (0=Enable 1=Visible)
    Private _Control As ToolStripItem       ' Control Name
    Private _OrgTooltip As String           ' Control Original  TooltipText
    Private _AltTooltip As String           ' Control Alternate TooltipText
    '
    Public Sub New(ByVal specTabs As Integer, ByVal prop As Boolean, _
	ByRef oControl As ToolStripItem, ByVal altTooltip As String)
	'
        Me._specTabs = specTabs
        Me._Prop = prop
        Me._Control = oControl
        Me._AltTooltip = altTooltip
        Me._OrgTooltip = Me._Control.ToolTipText
    End Sub
    '
    Public Sub New(ByVal specTabs As Integer, ByVal prop As Boolean, _
	ByRef oControl As ToolStripItem)
	'
        Me._specTabs = specTabs
        Me._Prop = prop
        Me._Control = oControl
        Me._AltTooltip = ""
        Me._OrgTooltip = Me._Control.ToolTipText
    End Sub
    '
    Public Sub setDisplay(ByVal curTab As Integer)
        Dim bVisible As Boolean = Me._Prop
	'
        If curTab And Me._specTabs Then
            If bVisible Then
                Me._Control.Visible = True
            Else
                Me._Control.Enabled = True
                Me._Control.ToolTipText = Me._OrgTooltip
            End If
        Else
            If bVisible Then
                Me._Control.Visible = False
            Else
                Me._Control.Enabled = False
                Me._Control.ToolTipText = Me._AltTooltip
            End If
        End If
    End Sub
End Class

if iFlag1 ?? iOptions then    '  What goes here instead of ??
...
else if iFlag2 ?? iOptions then
...
end if