ZooFlow: Replace old winforms treeview with Devexpress TreeList

GUIs.ZooFlow/frmAdministrationZooFlow.vb

@@ -1,21 +1,6 @@
 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
@@ -30,4 +15,19 @@
 
         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