Public Class frmAdministrationZooFlow
    Private _TABIndex As Integer
    Private Sub frmAdministrationZooFlow_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TreeView1_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeViewMain.AfterSelect
        Dim selnode As TreeNode = TreeViewMain.SelectedNode
        If Not IsNothing(selnode) Then
            Select Case selnode.Text
                Case "Business Entities"
                    _TABIndex = 0
                Case "Attributes"
                    _TABIndex = 1
            End Select
            DisplayTabs()
        End If
    End Sub
    Sub DisplayTabs()
        Try
            Dim oindex = 0
            For Each otab As DevExpress.XtraTab.IXtraTabPage In XtraTabControl1.TabPages
                XtraTabControl1.TabPages(oindex).PageVisible = False
                If oindex = _TABIndex Then
                    XtraTabControl1.TabPages(oindex).PageVisible = True
                End If
                oindex += 1
            Next
        Catch ex As Exception

        End Try
    End Sub
End Class