MS ZF Adminconsole

GUIs.ZooFlow/Administration/frmAdmin_Start.vb

@@ -109,10 +109,13 @@ Public Class frmAdmin_Start
                 Exit Sub
             End If
 
-            If Handle_LoadPage(e.Node.Tag.ToString) Then
+            If Handle_LoadPage(e.Node.Tag.ToString) And e.Node.Tag <> "Relations" Then
                 RibbonPageGroup1.Enabled = True
                 CurrentPage = e.Node.Tag.ToString
             End If
+            If e.Node.Tag = "Relations" Then
+                frmAdmin_relations.ShowDialog()
+            End If
         Catch ex As Exception
             ShowErrorMessage(ex)
         End Try