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

    End Sub

    Sub DisplayTab(PageToDisplay As DevExpress.XtraTab.XtraTabPage)
        Try

            For Each oPage As DevExpress.XtraTab.XtraTabPage In XtraTabControl1.TabPages
                If oPage.Name = PageToDisplay.Name Then
                    oPage.PageVisible = True
                Else
                    oPage.PageVisible = False
                End If
            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"
                DisplayTab(XtraTabPageAttributes)
            Case "IDB_ENTITIES"
                DisplayTab(XtraTabPageEntities)
        End Select
    End Sub


End Class