More Logging for Config Module, Add ControlPatcher, Add More UIConfig Items

EDMI_ClientSuite/UserManager/frmUserManager.vb

@@ -22,6 +22,12 @@ Public Class frmUserManager
         RibbonControl.SelectPage(RibbonPageUserManager)
     End Sub
 
+    Private Sub frmUserManager_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
+        If Visible Then
+            RibbonControl.SelectPage(RibbonPageUserManager)
+        End If
+    End Sub
+
     Private Async Function InitUserToGroupData() As Task
         Dim oUserTable = Await GetAttributeListAsync("User")
         Dim oGroupTable = Await GetAttributeListAsync("Group")
@@ -82,18 +88,22 @@ Public Class frmUserManager
         Await UpdateUserToGroupData()
     End Sub
 
-    Private Sub OfficeNavigationBar1_ItemClick(sender As Object, e As DevExpress.XtraBars.Navigation.NavigationBarItemEventArgs) Handles OfficeNavigationBar1.ItemClick
-
-    End Sub
-
     Private Sub OfficeNavigationBar1_SelectedItemChanged(sender As Object, e As DevExpress.XtraBars.Navigation.NavigationBarItemEventArgs) Handles OfficeNavigationBar1.SelectedItemChanged
         Select Case OfficeNavigationBar1.SelectedItem.Name
             Case "NavbarUser2Group"
                 UCUserToGroup.Visible = True
                 UCUserToGroup.Dock = DockStyle.Fill
+
+                UCGroupToGroup.Visible = False
+                UCGroupToGroup.Dock = DockStyle.None
             Case "NavbarGroup2Group"
+                UCGroupToGroup.Visible = True
+                UCGroupToGroup.Dock = DockStyle.Fill
+
                 UCUserToGroup.Visible = False
                 UCUserToGroup.Dock = DockStyle.None
         End Select
     End Sub
+
+
 End Class