Public Class frmAdministrationZooFlow
    Private _TABIndex As Integer

    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

    Private Sub TreeList1_FocusedNodeChanged(sender As Object, e As DevExpress.XtraTreeList.FocusedNodeChangedEventArgs) Handles TreeList1.FocusedNodeChanged
        If e.Node Is Nothing OrElse e.Node.Tag Is Nothing Then
            Exit Sub
        End If

        Select Case e.Node.Tag.ToString
            Case "IDB_ATTRIBUTES"
                _TABIndex = 0
            Case "IDB_ENTITIES"
                _TABIndex = 1
        End Select

        DisplayTabs()
    End Sub
End Class