ZooFlow: Clean up Admin

GUIs.ZooFlow/frmAdministrationZooFlow.vb

@@ -1,15 +1,17 @@
 Public Class frmAdministrationZooFlow
-    Private _TABIndex As Integer
+    Private Sub frmAdministrationZooFlow_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-    Sub DisplayTabs()
+    End Sub
+
+    Sub DisplayTab(PageToDisplay As DevExpress.XtraTab.XtraTabPage)
         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
+
+            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
-                oindex += 1
             Next
         Catch ex As Exception
 
@@ -23,11 +25,11 @@
 
         Select Case e.Node.Tag.ToString
             Case "IDB_ATTRIBUTES"
-                _TABIndex = 0
+                DisplayTab(XtraTabPageAttributes)
             Case "IDB_ENTITIES"
-                _TABIndex = 1
+                DisplayTab(XtraTabPageEntities)
         End Select
-
-        DisplayTabs()
     End Sub
+
+
 End Class