merge status bars

EDMI_ClientSuite/frmMain.vb

@@ -5,6 +5,7 @@ Imports System.IO
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.License
 Imports DevExpress.LookAndFeel
+Imports DevExpress.XtraBars.Ribbon
 
 Public Class frmMain
     Private _Logger As Logger
@@ -172,4 +173,19 @@ Public Class frmMain
             My.UIConfigManager.Save()
         End If
     End Sub
+
+    ' Manually merge the status bars of the parent and child MDI forms. 
+    Private Sub RibbonControl1_Merge(ByVal sender As System.Object,
+    ByVal e As RibbonMergeEventArgs) Handles RibbonControl.Merge
+        Dim parentRRibbon As RibbonControl = TryCast(sender, RibbonControl)
+        Dim childRibbon As RibbonControl = e.MergedChild
+        parentRRibbon.StatusBar.MergeStatusBar(childRibbon.StatusBar)
+    End Sub
+
+    ' Manually unmerge the status bars. 
+    Private Sub RibbonControl1_UnMerge(ByVal sender As System.Object,
+    ByVal e As RibbonMergeEventArgs) Handles RibbonControl.UnMerge
+        Dim parentRRibbon As RibbonControl = TryCast(sender, RibbonControl)
+        parentRRibbon.StatusBar.UnMergeStatusBar()
+    End Sub
 End Class