Work on Editor

EDMI_ClientSuite/FormUserManager/frmUserManager.Designer.vb

@@ -1,6 +1,8 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Imports DigitalData.GUIs.ClientSuite.Base
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmUserManager
-    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+    Inherits BaseRibbonForm
 
     'Form overrides dispose to clean up the component list.
     <System.Diagnostics.DebuggerNonUserCode()>
@@ -172,6 +174,7 @@ Partial Class frmUserManager
         Me.Controls.Add(Me.UserNavbar)
         Me.Controls.Add(Me.RibbonStatusBar)
         Me.Controls.Add(Me.UserRibbon)
+        Me.DefaultRibbonPage = Me.RibbonPageUserManager
         Me.Name = "frmUserManager"
         Me.Ribbon = Me.UserRibbon
         Me.ShowIcon = False

EDMI_ClientSuite/FormUserManager/frmUserManager.vb

@@ -22,22 +22,9 @@ Public Class frmUserManager
     Private Async Sub frmUserManager_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Await InitDataAsync()
 
-        UserRibbon.SelectPage(RibbonPageUserManager)
         UserNavbar.SelectedItem = NavbarUser2Group
     End Sub
 
-    Private Sub frmUserManager_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
-        If Visible Then
-            UserRibbon.SelectPage(RibbonPageUserManager)
-        End If
-    End Sub
-
-    Private Sub frmUserManager_Activated(sender As Object, e As EventArgs) Handles Me.Activated
-        If Visible Then
-            UserRibbon.SelectPage(RibbonPageUserManager)
-        End If
-    End Sub
-
     Private Sub ShowUserToGroupControl()
         If _UserToGroupControl Is Nothing Then
             _UserToGroupControl = New UserControlAssignment() With {