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

    Shared bNumberIsNegative As Boolean = False<br />
    Public Shared Function SetComma(ByVal dblNumber As Double) As String<br />
        Try<br />
            If dblNumber < 0 Then bNumberIsNegative = True Else bNumberIsNegative = False<br />
            dblNumber = Math.Abs(dblNumber)<br />
            dblNumber = Math.Round(dblNumber, 4)<br />
            Dim dblNumberWithOutComma As String = dblNumber.ToString<br />
            Dim strNumberWithComma As String = ""<br />
            Dim shrDotIndex As Short = dblNumberWithOutComma.IndexOf(".")<br />
            Dim i As Integer<br />
            Dim k As Integer<br />
            If shrDotIndex = -1 Then shrDotIndex = dblNumberWithOutComma.Length<br />
            For i = shrDotIndex - 1 To 0 Step -1<br />
                k = shrDotIndex - 1 - i<br />
                If (k Mod 3) = 0 And Not k = 0 Then strNumberWithComma = "," & strNumberWithComma<br />
                strNumberWithComma = dblNumberWithOutComma.Chars(i) & strNumberWithComma<br />
            Next<br />
            strNumberWithComma &= dblNumberWithOutComma.Substring(shrDotIndex, dblNumberWithOutComma.Length - shrDotIndex)<br />
            Select Case dblNumberWithOutComma.Length - shrDotIndex<br />
                Case 0 : strNumberWithComma &= ".00"<br />
                Case 2 : strNumberWithComma &= "0"<br />
            End Select<br />
            If bNumberIsNegative Then strNumberWithComma = "-" & strNumberWithComma<br />
            Return strNumberWithComma<br />
        Catch ex As Exception<br />
<br />
        End Try<br />
    End Function