Add Search & Home Form + Attached Panels

EDMI_ClientSuite/ClientSuite.vbproj

@@ -140,6 +140,12 @@
     <Compile Include="ClassUtils.vb" />
     <Compile Include="ControlDefaults\GridControlDefaults.vb" />
     <Compile Include="ControlDefaults\TreeListDefaults.vb" />
+    <Compile Include="frmSearch.Designer.vb">
+      <DependentUpon>frmSearch.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmSearch.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="_TEST\DockManagerTest.Designer.vb">
       <DependentUpon>DockManagerTest.vb</DependentUpon>
     </Compile>
@@ -186,22 +192,16 @@
     <Compile Include="FormDefaults\BaseRibbonForm.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmDashboard.Designer.vb">
-      <DependentUpon>frmDashboard.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmDashboard.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="_TEST\frmFileTest.Designer.vb">
       <DependentUpon>frmFileTest.vb</DependentUpon>
     </Compile>
     <Compile Include="_TEST\frmFileTest.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmInbox.Designer.vb">
+    <Compile Include="frmHome.Designer.vb">
-      <DependentUpon>frmInbox.vb</DependentUpon>
+      <DependentUpon>frmHome.vb</DependentUpon>
     </Compile>
-    <Compile Include="frmInbox.vb">
+    <Compile Include="frmHome.vb">
       <SubType>Form</SubType>
     </Compile>
     <Compile Include="frmMain.Designer.vb">
@@ -288,6 +288,9 @@
     </Compile>
   </ItemGroup>
   <ItemGroup>
+    <EmbeddedResource Include="frmSearch.resx">
+      <DependentUpon>frmSearch.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="_TEST\DockManagerTest.resx">
       <DependentUpon>DockManagerTest.vb</DependentUpon>
     </EmbeddedResource>
@@ -303,14 +306,11 @@
     <EmbeddedResource Include="FormEntityDesigner\frmEntityDesigner.resx">
       <DependentUpon>frmEntityDesigner.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmDashboard.resx">
-      <DependentUpon>frmDashboard.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="_TEST\frmFileTest.resx">
       <DependentUpon>frmFileTest.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmInbox.resx">
+    <EmbeddedResource Include="frmHome.resx">
-      <DependentUpon>frmInbox.vb</DependentUpon>
+      <DependentUpon>frmHome.vb</DependentUpon>
     </EmbeddedResource>
     <EmbeddedResource Include="frmMain.resx">
       <DependentUpon>frmMain.vb</DependentUpon>

EDMI_ClientSuite/frmDashboard.Designer.vb

@@ -1,37 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmDashboard
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
-    Private Sub InitializeComponent()
-        Me.SuspendLayout()
-        '
-        'frmDashboard
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(800, 450)
-        Me.Name = "frmDashboard"
-        Me.Text = "Dashboard"
-        Me.ResumeLayout(False)
-
-    End Sub
-End Class

EDMI_ClientSuite/frmDashboard.vb

@@ -1,4 +0,0 @@
-Imports System.ComponentModel
-
-Public Class frmDashboard
-End Class

EDMI_ClientSuite/frmHome.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmInbox
+Partial Class frmHome
     Inherits BaseRibbonForm
 
     'Form overrides dispose to clean up the component list.
@@ -30,6 +30,7 @@ Partial Class frmInbox
         Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
         Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
         Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.NavBarGroup2 = New DevExpress.XtraNavBar.NavBarGroup()
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.NavBarControl1.SuspendLayout()
@@ -73,7 +74,7 @@ Partial Class frmInbox
         Me.NavBarControl1.ActiveGroup = Me.NavBarGroup1
         Me.NavBarControl1.Controls.Add(Me.NavBarGroupControlContainer1)
         Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Left
-        Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1})
+        Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1, Me.NavBarGroup2})
         Me.NavBarControl1.Location = New System.Drawing.Point(0, 146)
         Me.NavBarControl1.Name = "NavBarControl1"
         Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 250
@@ -99,7 +100,7 @@ Partial Class frmInbox
         Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
         Me.NavBarGroupControlContainer1.Controls.Add(Me.TreeList1)
         Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
-        Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 403)
+        Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 367)
         Me.NavBarGroupControlContainer1.TabIndex = 0
         '
         'TreeList1
@@ -124,7 +125,7 @@ Partial Class frmInbox
         Me.TreeList1.OptionsSelection.EnableAppearanceFocusedCell = False
         Me.TreeList1.OptionsView.FocusRectStyle = DevExpress.XtraTreeList.DrawFocusRectStyle.None
         Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True
-        Me.TreeList1.Size = New System.Drawing.Size(250, 403)
+        Me.TreeList1.Size = New System.Drawing.Size(250, 367)
         Me.TreeList1.TabIndex = 0
         Me.TreeList1.ViewStyle = DevExpress.XtraTreeList.TreeListViewStyle.TreeView
         '
@@ -152,7 +153,12 @@ Partial Class frmInbox
         Me.GridView1.GridControl = Me.GridControl1
         Me.GridView1.Name = "GridView1"
         '
-        'frmInbox
+        'NavBarGroup2
+        '
+        Me.NavBarGroup2.Caption = "Analysis"
+        Me.NavBarGroup2.Name = "NavBarGroup2"
+        '
+        'frmHome
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -161,10 +167,10 @@ Partial Class frmInbox
         Me.Controls.Add(Me.NavBarControl1)
         Me.Controls.Add(Me.RibbonStatusBar)
         Me.Controls.Add(Me.RibbonControl)
-        Me.Name = "frmInbox"
+        Me.Name = "frmHome"
         Me.Ribbon = Me.RibbonControl
         Me.StatusBar = Me.RibbonStatusBar
-        Me.Text = "frmInbox"
+        Me.Text = "Home"
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.NavBarControl1.ResumeLayout(False)
@@ -188,4 +194,5 @@ Partial Class frmInbox
     Friend WithEvents NavBarGroupControlContainer1 As DevExpress.XtraNavBar.NavBarGroupControlContainer
     Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
     Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn
+    Friend WithEvents NavBarGroup2 As DevExpress.XtraNavBar.NavBarGroup
 End Class

EDMI_ClientSuite/frmHome.vb

@@ -0,0 +1,24 @@
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraTreeList
+
+Public Class frmHome
+    Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
+
+        Dim oGridPatcher As New ClassControlPatcher(Of GridControl)(Me)
+        oGridPatcher.
+            ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
+            ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
+
+        Dim oTreeListPatcher As New ClassControlPatcher(Of TreeList)(Me)
+        oTreeListPatcher.
+            ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)
+
+        Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"
+        My.Channel.CreateDatabaseRequest("Doc Metadata", True)
+        Dim oTable = My.Channel.ReturnDatatable(oSQL)
+        My.Channel.CloseDatabaseRequest()
+
+        GridControl1.DataSource = oTable.Table
+    End Sub
+End Class

EDMI_ClientSuite/frmInbox.vb

@@ -1,19 +0,0 @@
-Imports DevExpress.XtraTreeList
-
-Public Class frmInbox
-
-
-    Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
-        Dim oControlPatcher As New ClassControlPatcher(Of TreeList)(Me)
-        oControlPatcher.ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)
-
-
-        Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"
-        My.Channel.CreateDatabaseRequest("Doc Metadata", True)
-        Dim oTable = My.Channel.ReturnDatatable(oSQL)
-        My.Channel.CloseDatabaseRequest()
-
-        GridControl1.DataSource = oTable.Table
-    End Sub
-End Class

EDMI_ClientSuite/frmMain.Designer.vb

@@ -19,11 +19,10 @@ Partial Class frmMain
     'Do not modify it using the code editor.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
         Dim PushTransition1 As DevExpress.Utils.Animation.PushTransition = New DevExpress.Utils.Animation.PushTransition()
         Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
-        Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
+        Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu()
         Me.BarButtonExit = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonUserSettings = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonConnectionSettings = New DevExpress.XtraBars.BarButtonItem()
@@ -31,9 +30,7 @@ Partial Class frmMain
         Me.LabelCurrentMachine = New DevExpress.XtraBars.BarStaticItem()
         Me.LabelCurrentVersion = New DevExpress.XtraBars.BarStaticItem()
         Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
-        Me.BarButtonDock1 = New DevExpress.XtraBars.BarButtonItem()
         Me.SkinDropDownButtonItem1 = New DevExpress.XtraBars.SkinDropDownButtonItem()
-        Me.BarButtonDashboard = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonEntityDesigner = New DevExpress.XtraBars.BarButtonItem()
         Me.BarButtonDeleteControl = New DevExpress.XtraBars.BarButtonItem()
         Me.LabelCurrentLanguage = New DevExpress.XtraBars.BarStaticItem()
@@ -45,50 +42,38 @@ Partial Class frmMain
         Me.LabelServiceOffline = New DevExpress.XtraBars.BarStaticItem()
         Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
         Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageView = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
-        Me.RibbonPageWorkflow = New DevExpress.XtraBars.Ribbon.RibbonPage()
-        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonPageAdmin = New DevExpress.XtraBars.Ribbon.RibbonPage()
         Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
         Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
-        Me.DocumentManager = New DevExpress.XtraBars.Docking2010.DocumentManager(Me.components)
+        Me.DocumentManager = New DevExpress.XtraBars.Docking2010.DocumentManager()
-        Me.TabbedView1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView(Me.components)
+        Me.TabbedView1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView()
-        Me.DockManager = New DevExpress.XtraBars.Docking.DockManager(Me.components)
+        Me.DockManager = New DevExpress.XtraBars.Docking.DockManager()
-        Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel()
+        Me.MainNav = New DevExpress.XtraBars.Navigation.OfficeNavigationBar()
-        Me.DockPanelGlobix = New DevExpress.XtraBars.Docking.DockPanel()
+        Me.NavbarItemHome = New DevExpress.XtraBars.Navigation.NavigationBarItem()
-        Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
+        Me.NavbarItemSearch = New DevExpress.XtraBars.Navigation.NavigationBarItem()
-        Me.Label1 = New System.Windows.Forms.Label()
+        Me.NavbarItemWorkflow = New DevExpress.XtraBars.Navigation.NavigationBarItem()
-        Me.DockPanelProcessManager = New DevExpress.XtraBars.Docking.DockPanel()
-        Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer()
-        Me.ProcessManagerWidget = New DigitalData.GUIs.ClientSuite.ProcessManagerWidget()
-        Me.BarButtonInbox = New DevExpress.XtraBars.BarButtonItem()
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.MainMenu, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DocumentManager, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TabbedView1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DockManager, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.panelContainer1.SuspendLayout()
+        CType(Me.MainNav, System.ComponentModel.ISupportInitialize).BeginInit()
-        Me.DockPanelGlobix.SuspendLayout()
-        Me.DockPanel1_Container.SuspendLayout()
-        Me.DockPanelProcessManager.SuspendLayout()
-        Me.DockPanel2_Container.SuspendLayout()
         Me.SuspendLayout()
         '
         'RibbonControl
         '
         Me.RibbonControl.ApplicationButtonDropDownControl = Me.MainMenu
         Me.RibbonControl.ExpandCollapseItem.Id = 0
-        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.BarButtonExit, Me.BarButtonUserSettings, Me.LabelCurrentUser, Me.LabelCurrentMachine, Me.LabelCurrentVersion, Me.BarButtonItem1, Me.BarButtonDock1, Me.SkinDropDownButtonItem1, Me.BarButtonDashboard, Me.BarButtonEntityDesigner, Me.BarButtonDeleteControl, Me.BarButtonConnectionSettings, Me.LabelCurrentLanguage, Me.BarButtonItem2, Me.BarWorkspaceMenuItem1, Me.LabelServiceOnline, Me.BarButtonUserManager, Me.LabelServiceOffline, Me.BarButtonItem3, Me.BarButtonInbox})
+        Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.BarButtonExit, Me.BarButtonUserSettings, Me.LabelCurrentUser, Me.LabelCurrentMachine, Me.LabelCurrentVersion, Me.BarButtonItem1, Me.SkinDropDownButtonItem1, Me.BarButtonEntityDesigner, Me.BarButtonDeleteControl, Me.BarButtonConnectionSettings, Me.LabelCurrentLanguage, Me.BarButtonItem2, Me.BarWorkspaceMenuItem1, Me.LabelServiceOnline, Me.BarButtonUserManager, Me.LabelServiceOffline, Me.BarButtonItem3})
         Me.RibbonControl.Location = New System.Drawing.Point(0, 0)
         Me.RibbonControl.MaxItemId = 23
         Me.RibbonControl.MdiMergeStyle = DevExpress.XtraBars.Ribbon.RibbonMdiMergeStyle.Always
         Me.RibbonControl.Name = "RibbonControl"
         Me.RibbonControl.PageHeaderItemLinks.Add(Me.SkinDropDownButtonItem1)
         Me.RibbonControl.PageHeaderItemLinks.Add(Me.BarWorkspaceMenuItem1)
-        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageView, Me.RibbonPageWorkflow, Me.RibbonPageAdmin})
+        Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageAdmin})
         Me.RibbonControl.Size = New System.Drawing.Size(1139, 146)
         Me.RibbonControl.StatusBar = Me.RibbonStatusBar
         '
@@ -154,25 +139,11 @@ Partial Class frmMain
         Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
         Me.BarButtonItem1.Name = "BarButtonItem1"
         '
-        'BarButtonDock1
-        '
-        Me.BarButtonDock1.Caption = "Show Panel"
-        Me.BarButtonDock1.Id = 9
-        Me.BarButtonDock1.Name = "BarButtonDock1"
-        '
         'SkinDropDownButtonItem1
         '
         Me.SkinDropDownButtonItem1.Id = 10
         Me.SkinDropDownButtonItem1.Name = "SkinDropDownButtonItem1"
         '
-        'BarButtonDashboard
-        '
-        Me.BarButtonDashboard.Caption = "Dashboard"
-        Me.BarButtonDashboard.Id = 11
-        Me.BarButtonDashboard.ImageOptions.Image = CType(resources.GetObject("BarButtonDashboard.ImageOptions.Image"), System.Drawing.Image)
-        Me.BarButtonDashboard.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonDashboard.ImageOptions.LargeImage"), System.Drawing.Image)
-        Me.BarButtonDashboard.Name = "BarButtonDashboard"
-        '
         'BarButtonEntityDesigner
         '
         Me.BarButtonEntityDesigner.Caption = "Entitäten Designer"
@@ -246,17 +217,10 @@ Partial Class frmMain
         '
         'RibbonPageStart
         '
-        Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3})
+        Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3})
         Me.RibbonPageStart.Name = "RibbonPageStart"
         Me.RibbonPageStart.Text = "Start"
         '
-        'RibbonPageGroup1
-        '
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonDashboard)
-        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonInbox)
-        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
-        Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
-        '
         'RibbonPageGroup3
         '
         Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
@@ -265,33 +229,9 @@ Partial Class frmMain
         Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
         Me.RibbonPageGroup3.Text = "DEBUG"
         '
-        'RibbonPageView
-        '
-        Me.RibbonPageView.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
-        Me.RibbonPageView.Name = "RibbonPageView"
-        Me.RibbonPageView.Text = "View"
-        '
-        'RibbonPageGroup2
-        '
-        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonDock1)
-        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
-        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
-        '
-        'RibbonPageWorkflow
-        '
-        Me.RibbonPageWorkflow.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4})
-        Me.RibbonPageWorkflow.Name = "RibbonPageWorkflow"
-        Me.RibbonPageWorkflow.Text = "Workflow"
-        '
-        'RibbonPageGroup4
-        '
-        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonEntityDesigner)
-        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
-        Me.RibbonPageGroup4.Text = "RibbonPageGroup4"
-        '
         'RibbonPageAdmin
         '
-        Me.RibbonPageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup6})
+        Me.RibbonPageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup6, Me.RibbonPageGroup1})
         Me.RibbonPageAdmin.Name = "RibbonPageAdmin"
         Me.RibbonPageAdmin.Text = "Administration"
         '
@@ -299,7 +239,13 @@ Partial Class frmMain
         '
         Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonUserManager)
         Me.RibbonPageGroup6.Name = "RibbonPageGroup6"
-        Me.RibbonPageGroup6.Text = "RibbonPageGroup6"
+        Me.RibbonPageGroup6.Text = "Benutzer und Gruppen"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonEntityDesigner)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Inhalte"
         '
         'RibbonStatusBar
         '
@@ -323,103 +269,46 @@ Partial Class frmMain
         '
         'TabbedView1
         '
+        Me.TabbedView1.DocumentProperties.AllowPin = True
         Me.TabbedView1.EnableFreeLayoutMode = DevExpress.Utils.DefaultBoolean.[True]
         '
         'DockManager
         '
+        Me.DockManager.DockingOptions.HideImmediatelyOnAutoHide = True
         Me.DockManager.Form = Me
-        Me.DockManager.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.panelContainer1})
         Me.DockManager.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl"})
         '
-        'panelContainer1
+        'MainNav
         '
-        Me.panelContainer1.Controls.Add(Me.DockPanelGlobix)
+        Me.MainNav.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.panelContainer1.Controls.Add(Me.DockPanelProcessManager)
+        Me.MainNav.Items.AddRange(New DevExpress.XtraBars.Navigation.NavigationBarItem() {Me.NavbarItemHome, Me.NavbarItemSearch, Me.NavbarItemWorkflow})
-        Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right
+        Me.MainNav.Location = New System.Drawing.Point(0, 511)
-        Me.panelContainer1.ID = New System.Guid("a0849884-28cd-486b-bc02-0c28fd88a006")
+        Me.MainNav.Name = "MainNav"
-        Me.panelContainer1.Location = New System.Drawing.Point(793, 146)
+        Me.MainNav.Size = New System.Drawing.Size(1139, 45)
-        Me.panelContainer1.Name = "panelContainer1"
+        Me.MainNav.TabIndex = 4
-        Me.panelContainer1.OriginalSize = New System.Drawing.Size(346, 200)
+        Me.MainNav.Text = "OfficeNavigationBar1"
-        Me.panelContainer1.SavedSizeFactor = 0R
-        Me.panelContainer1.Size = New System.Drawing.Size(346, 410)
-        Me.panelContainer1.Text = "panelContainer1"
         '
-        'DockPanelGlobix
+        'NavbarItemHome
         '
-        Me.DockPanelGlobix.Controls.Add(Me.DockPanel1_Container)
+        Me.NavbarItemHome.Name = "NavbarItemHome"
-        Me.DockPanelGlobix.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
+        Me.NavbarItemHome.Text = "Home"
-        Me.DockPanelGlobix.ID = New System.Guid("804984d7-b275-4115-ab10-a8322f0a8a7e")
-        Me.DockPanelGlobix.Location = New System.Drawing.Point(0, 0)
-        Me.DockPanelGlobix.Name = "DockPanelGlobix"
-        Me.DockPanelGlobix.Options.ShowCloseButton = False
-        Me.DockPanelGlobix.OriginalSize = New System.Drawing.Size(346, 202)
-        Me.DockPanelGlobix.SavedSizeFactor = 0R
-        Me.DockPanelGlobix.Size = New System.Drawing.Size(346, 206)
-        Me.DockPanelGlobix.Text = "GLOBIX"
         '
-        'DockPanel1_Container
+        'NavbarItemSearch
         '
-        Me.DockPanel1_Container.Controls.Add(Me.Label1)
+        Me.NavbarItemSearch.Name = "NavbarItemSearch"
-        Me.DockPanel1_Container.Location = New System.Drawing.Point(5, 38)
+        Me.NavbarItemSearch.Text = "Search"
-        Me.DockPanel1_Container.Name = "DockPanel1_Container"
-        Me.DockPanel1_Container.Size = New System.Drawing.Size(337, 163)
-        Me.DockPanel1_Container.TabIndex = 0
         '
-        'Label1
+        'NavbarItemWorkflow
         '
-        Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.NavbarItemWorkflow.Name = "NavbarItemWorkflow"
-        Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.NavbarItemWorkflow.Text = "Workflow"
-        Me.Label1.Location = New System.Drawing.Point(0, 0)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(337, 163)
-        Me.Label1.TabIndex = 0
-        Me.Label1.Text = "DROP FILES HERE"
-        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
-        '
-        'DockPanelProcessManager
-        '
-        Me.DockPanelProcessManager.Controls.Add(Me.DockPanel2_Container)
-        Me.DockPanelProcessManager.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
-        Me.DockPanelProcessManager.ID = New System.Guid("a84f02de-66af-4674-9260-85bec9f0825b")
-        Me.DockPanelProcessManager.Location = New System.Drawing.Point(0, 206)
-        Me.DockPanelProcessManager.Name = "DockPanelProcessManager"
-        Me.DockPanelProcessManager.Options.ShowCloseButton = False
-        Me.DockPanelProcessManager.OriginalSize = New System.Drawing.Size(346, 201)
-        Me.DockPanelProcessManager.SavedSizeFactor = 0R
-        Me.DockPanelProcessManager.Size = New System.Drawing.Size(346, 204)
-        Me.DockPanelProcessManager.Text = "Process Manager"
-        '
-        'DockPanel2_Container
-        '
-        Me.DockPanel2_Container.Controls.Add(Me.ProcessManagerWidget)
-        Me.DockPanel2_Container.Location = New System.Drawing.Point(5, 38)
-        Me.DockPanel2_Container.Name = "DockPanel2_Container"
-        Me.DockPanel2_Container.Size = New System.Drawing.Size(337, 162)
-        Me.DockPanel2_Container.TabIndex = 0
-        '
-        'ProcessManagerWidget
-        '
-        Me.ProcessManagerWidget.DataSource = Nothing
-        Me.ProcessManagerWidget.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.ProcessManagerWidget.Location = New System.Drawing.Point(0, 0)
-        Me.ProcessManagerWidget.Name = "ProcessManagerWidget"
-        Me.ProcessManagerWidget.Size = New System.Drawing.Size(337, 162)
-        Me.ProcessManagerWidget.TabIndex = 0
-        '
-        'BarButtonInbox
-        '
-        Me.BarButtonInbox.Caption = "Inbox"
-        Me.BarButtonInbox.Id = 22
-        Me.BarButtonInbox.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
-        Me.BarButtonInbox.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
-        Me.BarButtonInbox.Name = "BarButtonInbox"
         '
         'frmMain
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1139, 577)
-        Me.Controls.Add(Me.panelContainer1)
+        Me.Controls.Add(Me.MainNav)
         Me.Controls.Add(Me.RibbonStatusBar)
         Me.Controls.Add(Me.RibbonControl)
         Me.IsMdiContainer = True
@@ -432,11 +321,7 @@ Partial Class frmMain
         CType(Me.DocumentManager, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TabbedView1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DockManager, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.panelContainer1.ResumeLayout(False)
+        CType(Me.MainNav, System.ComponentModel.ISupportInitialize).EndInit()
-        Me.DockPanelGlobix.ResumeLayout(False)
-        Me.DockPanel1_Container.ResumeLayout(False)
-        Me.DockPanelProcessManager.ResumeLayout(False)
-        Me.DockPanel2_Container.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -444,7 +329,6 @@ Partial Class frmMain
 
     Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl
     Friend WithEvents RibbonPageStart As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar
     Friend WithEvents MainMenu As DevExpress.XtraBars.Ribbon.ApplicationMenu
     Friend WithEvents BarButtonExit As DevExpress.XtraBars.BarButtonItem
@@ -453,25 +337,12 @@ Partial Class frmMain
     Friend WithEvents LabelCurrentMachine As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents LabelCurrentVersion As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonDock1 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents RibbonPageView As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents NativeMdiView1 As DevExpress.XtraBars.Docking2010.Views.NativeMdi.NativeMdiView
     Friend WithEvents DocumentManager As DevExpress.XtraBars.Docking2010.DocumentManager
     Friend WithEvents TabbedView1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView
     Friend WithEvents DockManager As DevExpress.XtraBars.Docking.DockManager
-    Friend WithEvents DockPanelGlobix As DevExpress.XtraBars.Docking.DockPanel
-    Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer
-    Friend WithEvents Label1 As Label
-    Friend WithEvents DockPanelProcessManager As DevExpress.XtraBars.Docking.DockPanel
-    Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer
-    Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel
     Friend WithEvents SkinDropDownButtonItem1 As DevExpress.XtraBars.SkinDropDownButtonItem
-    Friend WithEvents BarButtonDashboard As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
-    Friend WithEvents ProcessManagerWidget As ProcessManagerWidget
-    Friend WithEvents RibbonPageWorkflow As DevExpress.XtraBars.Ribbon.RibbonPage
-    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents BarButtonEntityDesigner As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonDeleteControl As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents BarButtonConnectionSettings As DevExpress.XtraBars.BarButtonItem
@@ -485,5 +356,9 @@ Partial Class frmMain
     Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
     Friend WithEvents LabelServiceOffline As DevExpress.XtraBars.BarStaticItem
     Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
-    Friend WithEvents BarButtonInbox As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents MainNav As DevExpress.XtraBars.Navigation.OfficeNavigationBar
+    Friend WithEvents NavbarItemHome As DevExpress.XtraBars.Navigation.NavigationBarItem
+    Friend WithEvents NavbarItemSearch As DevExpress.XtraBars.Navigation.NavigationBarItem
+    Friend WithEvents NavbarItemWorkflow As DevExpress.XtraBars.Navigation.NavigationBarItem
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
 End Class

EDMI_ClientSuite/frmMain.resx

@@ -258,28 +258,6 @@
         6rZH6NG6Ev4hdBEzYOFbB1GRcZPAQzo2yVt0MLNPoaESGiqhoRIaKqEhSCnZTSZndNB7gO0ANATe5J/r
         hfs556WUMvqxn7U7/0ND8ESg1kolZAIoJiEVQPUScgHUJjFD4hMBVJPwf4eH2aAheCJwws+v0D00BGh8
         q7ZZdA8NQQiEQAiEQAiEQAig6U36+Q0aKqGhEhrqsGEFMnodJsvjoggAAAAASUVORK5CYII=
-</value>
-  </data>
-  <data name="BarButtonDashboard.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAANRJREFUOE+d
-        kT0OgkAQhbG18WQmXsA7AI0dCWZbo7fRxMJGUC9j/MN2nDdhyC6wsLH4YHg770vIRsYYHxNmw+SazdcH
-        AvoNmqEFylsGy0AkoQK7fGTKes65nI0J2uUpM2McCb+bzlhZzyApVmYnEitvBENlRSSMI8EjpKx0JAhx
-        VQjAUFmBRPczBEtmXwe6pAtt7PMTs9AAv+EsVNeEHkUqfC5JnwAd5xachTeX7udUeJW9ApkjIhLsEPP3
-        FtOzTIXqGncE2vMKPAQLxvAKgukI/oOiH3DIH9LquF+BAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="BarButtonDashboard.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAATpJREFUWEft
-        ks0NwjAMRkHMxQhw7wIMwAhVJ+BH4oSEgBlgAObhwhUR7KqunMRO2zSUSw9Pbb7a+R4SE2PMX6lfiqKI
-        YVohfQuSQmAGnIED0FmirwCWXwFT0Vmij4BbLkos8rvhUE7ECmjlRC3xCwGpfAecnKyUgNJXSgGtHH8t
-        fvMklvltziUgs+7sIhAq5zNBCTjzO1sLSOVbQPrHByXg3ZpvI9ClnFAl4GnNNgnElBOiBGDthgT6lBON
-        EppAinIiKCEJpCwnVAlJ4MKGkL7lhCSxlwRWwIcNpSgnUILufQOZJICgxAbAQX4BQZc0oe0egQzPmgAf
-        drMyfz7WQXDG2al3+dkT4NCwlEulHJxx9xAt9wJkFBgFQgJtcPcQLfcCpLpI/BbLKBAjkBy3B/GCoRHD
-        IRHD4TCTL7ccmUyvvNxMAAAAAElFTkSuQmCC
 </value>
   </data>
   <data name="BarButtonEntityDesigner.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@@ -425,26 +403,6 @@
         ldBSCS1BCKHsZDJGA3s3sDsALYFtssfnwfcxxmdKabRle9ZqvYSWoEcg50wlZAIIk5AKIK2EXACZJR6Q
         OEUAqRL2bvNjVmgJegTecLdP6D20BNh4VOaz6D20BD8ncLnedrGMT8An4BPwCfzHBL6JC3QLHEl7foWW
         SmiphJZKaKmjDC/fWMVvGNRzeQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="BarButtonItem4.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJHRFWHRUaXRsZQBDb21tZW50
-        O1Rvb2x0aXA7SGludDtUaXA7Q2xvdWTTwdvJAAAAYUlEQVQ4T2P4//8/RZjBt2lHAxD/JxM3gAzAJkE0
-        Ho4GwEIXHxsZU98AUvEwMYCypAwNWTCNjIFivkgKkTFIHK4OrBlZAIah4uiGgDWDMEwdiiZkDFMI1YSi
-        GYQh6v4zAAANA4rK4wvslQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="BarButtonItem4.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
-        YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJHRFWHRUaXRsZQBDb21tZW50
-        O1Rvb2x0aXA7SGludDtUaXA7Q2xvdWTTwdvJAAAA00lEQVRYR+2WwQ3CMAxFe+paTNClOMEN1mAClior
-        GDtKJRP/CjcijpByeFH069ovvTQTEXUFhpHAMBIYRgLDSNKynJ8zc2dWhhrzYmTWrAVu+WEkFy0QcfKS
-        VQugguYMgSHgFXgwp4zsa3ODV0AaSY0g+9rc8DcCRz/1Xm7wCjRjCAwBLdD9d9zjQnLVAtuVTK5LqPiX
-        wCtZDQuDBpRIHXo/zU5LDbnJN4mP4agPDD2oxnsS5uSoDwy9qOalhBkuoB4wPIIasEnA4QJ6H4aRwDAO
-        mt5+ylxK+IuO/gAAAABJRU5ErkJggg==
 </value>
   </data>
   <metadata name="DocumentManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

EDMI_ClientSuite/frmMain.vb

@@ -6,6 +6,8 @@ Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.License
 Imports DevExpress.LookAndFeel
 Imports DevExpress.XtraBars.Ribbon
+Imports DevExpress.XtraBars.Docking
+Imports DevExpress.XtraGrid
 
 Public Class frmMain
     Private _Timer As ClassTimer
@@ -41,37 +43,24 @@ Public Class frmMain
             ' Initialize Main Timer
             _Timer = New ClassTimer(My.LogConfig, Me, My.SysConfig.HeartbeatInterval)
             AddHandler _Timer.OnlineChanged, AddressOf HandleOnlineChanged
+
+            ' Show Service Status Label 
             SetOnlineLabel()
+
+            ' Apply Selected Skin Style
             UserLookAndFeel.Default.SetSkinStyle(My.UIConfig.SkinName)
 
+            ' Show User Info
             LabelCurrentUser.Caption = My.Application.User.UserName
             LabelCurrentMachine.Caption = My.Application.User.MachineName
             LabelCurrentVersion.Caption = My.Application.Info.Version.ToString
             LabelCurrentLanguage.Caption = My.Application.User.Language
 
-            Dim oDashboard = New frmDashboard()
+            ' Load and Save Layout
-            oDashboard.MdiParent = DocumentManager.MdiParent
-            oDashboard.Show()
-
-            ' --- Process Manager Panel ---
-            Dim oDataTable = New DataTable("PMDocuments")
-            Dim oDocNameColumn = New DataColumn("DocName", GetType(String))
-            oDataTable.Columns.Add(oDocNameColumn)
-
-            Dim oRow = oDataTable.NewRow()
-            oRow.Item("DocName") = "test1.xlsx"
-
-            oDataTable.Rows.Add(oRow)
-
-            ProcessManagerWidget.DataSource = oDataTable
-            AddHandler ProcessManagerWidget.RowDoubleClicked, Sub(RowView As DataRowView)
-                                                                  MsgBox($"Clicked on Document {RowView.Row.Item("DocName")}")
-                                                              End Sub
-
             AddHandler UserLookAndFeel.Default.StyleChanged, AddressOf frmMain_StyleChanged
-
             LoadLayout()
 
+            ' We're done loading now
             _Loading = False
         Catch ex As Exception
             _ErrorHandler.ShowErrorMessage(ex)
@@ -95,11 +84,11 @@ Public Class frmMain
             Dim oLayoutPathForDocumentManager As String = GetLayoutPath(GroupName.LayoutMain, LayoutComponent.DocumentManager)
 
             If File.Exists(oLayoutPathForDockManager) Then
-                DockManager.RestoreLayoutFromXml(oLayoutPathForDockManager)
+                'DockManager.RestoreLayoutFromXml(oLayoutPathForDockManager)
             End If
 
             If File.Exists(oLayoutPathForDocumentManager) Then
-                DocumentManager.View.RestoreLayoutFromXml(oLayoutPathForDocumentManager)
+                'DocumentManager.View.RestoreLayoutFromXml(oLayoutPathForDocumentManager)
             End If
         Catch ex As Exception
             _ErrorHandler.ShowErrorMessage(ex)
@@ -115,8 +104,8 @@ Public Class frmMain
                 Directory.CreateDirectory(oDirectory)
             End If
 
-            DockManager.SaveLayoutToXml(oLayoutPathForDockManager)
+            'DockManager.SaveLayoutToXml(oLayoutPathForDockManager)
-            DocumentManager.View.SaveLayoutToXml(oLayoutPathForDocumentManager)
+            'DocumentManager.View.SaveLayoutToXml(oLayoutPathForDocumentManager)
         Catch ex As Exception
             _ErrorHandler.ShowErrorMessage(ex)
         End Try
@@ -128,11 +117,6 @@ Public Class frmMain
         frm.Show()
     End Sub
 
-    Private Sub BarButtonDashboard_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonDashboard.ItemClick
-        Dim frm As New frmDashboard()
-        frm.MdiParent = DocumentManager.MdiParent
-        frm.Show()
-    End Sub
 
     Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
         Dim frm As New frmFileTest()
@@ -200,10 +184,54 @@ Public Class frmMain
         frm.Show()
     End Sub
 
-    Private Sub BarButtonInbox_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonInbox.ItemClick
+    Private Sub BarButtonInbox_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
-        Dim oForm As New frmInbox With {
+        Dim oForm As New frmHome With {
             .MdiParent = DocumentManager.MdiParent
         }
         oForm.Show()
     End Sub
+
+    Private Sub MainNav_SelectedItemChanging(sender As Object, e As DevExpress.XtraBars.Navigation.SelectedItemChangingEventArgs) Handles MainNav.SelectedItemChanging
+        Select Case e.Item.Name
+            Case NavbarItemHome.Name
+                Dim oForm As New frmHome()
+                oForm.MdiParent = DocumentManager.MdiParent
+                oForm.Show()
+            Case NavbarItemSearch.Name
+                Dim oForm As New frmSearch()
+                oForm.MdiParent = DocumentManager.MdiParent
+                oForm.Show()
+
+                Dim oSearchPanel = DockManager.AddPanel(DockingStyle.Bottom)
+                oSearchPanel.Options.ShowCloseButton = False
+                oSearchPanel.Options.ShowAutoHideButton = False
+                oSearchPanel.Text = "Search " & New Random().Next()
+                oSearchPanel.Controls.Add(New GridControl With {.Dock = DockStyle.Fill})
+
+                Dim oSearchPanel2 = DockManager.AddPanel(DockingStyle.Bottom)
+                oSearchPanel2.Options.ShowCloseButton = False
+                oSearchPanel2.Options.ShowAutoHideButton = False
+                oSearchPanel2.Text = "Search " & New Random().Next()
+                oSearchPanel2.Controls.Add(New GridControl With {.Dock = DockStyle.Fill})
+
+                oSearchPanel2.DockTo(oSearchPanel)
+
+                AddHandler oForm.FormClosed, Sub()
+                                                 oSearchPanel.Close()
+                                                 oSearchPanel2.Close()
+                                             End Sub
+
+                'AddHandler oForm.Deactivate, Sub()
+                '                                 oSearchPanel.Visibility = DockVisibility.Hidden
+                '                                 oSearchPanel2.Visibility = DockVisibility.Hidden
+                '                             End Sub
+
+                'AddHandler oForm.Activated, Sub()
+                '                                oSearchPanel2.Visibility = DockVisibility.Visible
+                '                                oSearchPanel.Visibility = DockVisibility.Visible
+                '                            End Sub
+        End Select
+
+        e.Cancel = True
+    End Sub
 End Class

EDMI_ClientSuite/frmSearch.Designer.vb

@@ -0,0 +1,384 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSearch
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSearch))
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
+        Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
+        Me.NavBarGroup1 = New DevExpress.XtraNavBar.NavBarGroup()
+        Me.NavBarGroupControlContainer1 = New DevExpress.XtraNavBar.NavBarGroupControlContainer()
+        Me.ImageListBoxControl1 = New DevExpress.XtraEditors.ImageListBoxControl()
+        Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
+        Me.textEdit1 = New DevExpress.XtraEditors.TextEdit()
+        Me.textEdit2 = New DevExpress.XtraEditors.TextEdit()
+        Me.textEdit3 = New DevExpress.XtraEditors.TextEdit()
+        Me.textEdit4 = New DevExpress.XtraEditors.TextEdit()
+        Me.textEdit5 = New DevExpress.XtraEditors.TextEdit()
+        Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.LayoutControlGroup4 = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.layoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.layoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.layoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.layoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
+        Me.layoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.NavBarControl1.SuspendLayout()
+        Me.NavBarGroupControlContainer1.SuspendLayout()
+        CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.LayoutControl1.SuspendLayout()
+        CType(Me.textEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.textEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.textEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.textEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.textEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.layoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.layoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.BarButtonItem1, Me.BarButtonItem2})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 3
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
+        Me.RibbonControl1.Size = New System.Drawing.Size(1220, 146)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Execute Search"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Save Search"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
+        Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'RibbonPageCategory1
+        '
+        Me.RibbonPageCategory1.Name = "RibbonPageCategory1"
+        Me.RibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage3})
+        Me.RibbonPageCategory1.Text = "RibbonPageCategory1"
+        '
+        'RibbonPage3
+        '
+        Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
+        Me.RibbonPage3.Name = "RibbonPage3"
+        Me.RibbonPage3.Text = "RibbonPage3"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 680)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(1220, 21)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'NavBarControl1
+        '
+        Me.NavBarControl1.ActiveGroup = Me.NavBarGroup1
+        Me.NavBarControl1.Controls.Add(Me.NavBarGroupControlContainer1)
+        Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Right
+        Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1})
+        Me.NavBarControl1.Location = New System.Drawing.Point(970, 146)
+        Me.NavBarControl1.Name = "NavBarControl1"
+        Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 250
+        Me.NavBarControl1.OptionsNavPane.ShowOverflowButton = False
+        Me.NavBarControl1.OptionsNavPane.ShowOverflowPanel = False
+        Me.NavBarControl1.PaintStyleKind = DevExpress.XtraNavBar.NavBarViewKind.NavigationPane
+        Me.NavBarControl1.Size = New System.Drawing.Size(250, 534)
+        Me.NavBarControl1.TabIndex = 3
+        Me.NavBarControl1.Text = "NavBarControl1"
+        '
+        'NavBarGroup1
+        '
+        Me.NavBarGroup1.Caption = "Forward To"
+        Me.NavBarGroup1.ControlContainer = Me.NavBarGroupControlContainer1
+        Me.NavBarGroup1.Expanded = True
+        Me.NavBarGroup1.GroupClientHeight = 369
+        Me.NavBarGroup1.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.ControlContainer
+        Me.NavBarGroup1.Name = "NavBarGroup1"
+        '
+        'NavBarGroupControlContainer1
+        '
+        Me.NavBarGroupControlContainer1.Appearance.BackColor = System.Drawing.SystemColors.Control
+        Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
+        Me.NavBarGroupControlContainer1.Controls.Add(Me.ImageListBoxControl1)
+        Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
+        Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 453)
+        Me.NavBarGroupControlContainer1.TabIndex = 0
+        '
+        'ImageListBoxControl1
+        '
+        Me.ImageListBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.ImageListBoxControl1.Location = New System.Drawing.Point(0, 0)
+        Me.ImageListBoxControl1.Name = "ImageListBoxControl1"
+        Me.ImageListBoxControl1.Size = New System.Drawing.Size(250, 453)
+        Me.ImageListBoxControl1.TabIndex = 0
+        '
+        'LayoutControl1
+        '
+        Me.LayoutControl1.Controls.Add(Me.textEdit1)
+        Me.LayoutControl1.Controls.Add(Me.textEdit2)
+        Me.LayoutControl1.Controls.Add(Me.textEdit3)
+        Me.LayoutControl1.Controls.Add(Me.textEdit4)
+        Me.LayoutControl1.Controls.Add(Me.textEdit5)
+        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControl1.Location = New System.Drawing.Point(0, 146)
+        Me.LayoutControl1.Name = "LayoutControl1"
+        Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(551, 62, 650, 400)
+        Me.LayoutControl1.Root = Me.LayoutControlGroup1
+        Me.LayoutControl1.Size = New System.Drawing.Size(970, 534)
+        Me.LayoutControl1.TabIndex = 6
+        Me.LayoutControl1.Text = "LayoutControl1"
+        '
+        'textEdit1
+        '
+        Me.textEdit1.Location = New System.Drawing.Point(12, 28)
+        Me.textEdit1.Name = "textEdit1"
+        Me.textEdit1.Size = New System.Drawing.Size(400, 20)
+        Me.textEdit1.StyleController = Me.LayoutControl1
+        Me.textEdit1.TabIndex = 4
+        '
+        'textEdit2
+        '
+        Me.textEdit2.Location = New System.Drawing.Point(12, 68)
+        Me.textEdit2.Name = "textEdit2"
+        Me.textEdit2.Size = New System.Drawing.Size(400, 20)
+        Me.textEdit2.StyleController = Me.LayoutControl1
+        Me.textEdit2.TabIndex = 5
+        '
+        'textEdit3
+        '
+        Me.textEdit3.Location = New System.Drawing.Point(12, 108)
+        Me.textEdit3.Name = "textEdit3"
+        Me.textEdit3.Properties.Mask.EditMask = "[a-zA-Z]+"
+        Me.textEdit3.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.RegEx
+        Me.textEdit3.Size = New System.Drawing.Size(400, 20)
+        Me.textEdit3.StyleController = Me.LayoutControl1
+        Me.textEdit3.TabIndex = 6
+        '
+        'textEdit4
+        '
+        Me.textEdit4.Location = New System.Drawing.Point(12, 148)
+        Me.textEdit4.Name = "textEdit4"
+        Me.textEdit4.Properties.Mask.EditMask = "[a-zA-Z]+"
+        Me.textEdit4.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.RegEx
+        Me.textEdit4.Size = New System.Drawing.Size(400, 20)
+        Me.textEdit4.StyleController = Me.LayoutControl1
+        Me.textEdit4.TabIndex = 7
+        '
+        'textEdit5
+        '
+        Me.textEdit5.Location = New System.Drawing.Point(12, 188)
+        Me.textEdit5.Name = "textEdit5"
+        Me.textEdit5.Properties.Mask.EditMask = "00000"
+        Me.textEdit5.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Simple
+        Me.textEdit5.Size = New System.Drawing.Size(400, 20)
+        Me.textEdit5.StyleController = Me.LayoutControl1
+        Me.textEdit5.TabIndex = 8
+        '
+        'LayoutControlGroup1
+        '
+        Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
+        Me.LayoutControlGroup1.GroupBordersVisible = False
+        Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup4, Me.layoutControlItem1, Me.layoutControlItem2, Me.layoutControlItem3, Me.layoutControlItem4, Me.layoutControlItem5})
+        Me.LayoutControlGroup1.Name = "Root"
+        Me.LayoutControlGroup1.Size = New System.Drawing.Size(970, 534)
+        Me.LayoutControlGroup1.TextVisible = False
+        '
+        'LayoutControlGroup4
+        '
+        Me.LayoutControlGroup4.CustomizationFormText = "layoutControlGroup3"
+        Me.LayoutControlGroup4.GroupBordersVisible = False
+        Me.LayoutControlGroup4.Location = New System.Drawing.Point(0, 200)
+        Me.LayoutControlGroup4.Name = "LayoutControlGroup4"
+        Me.LayoutControlGroup4.Size = New System.Drawing.Size(950, 314)
+        Me.LayoutControlGroup4.Text = "layoutControlGroup3"
+        '
+        'layoutControlItem1
+        '
+        Me.layoutControlItem1.Control = Me.textEdit1
+        Me.layoutControlItem1.CustomizationFormText = "Address line 1:"
+        Me.layoutControlItem1.Location = New System.Drawing.Point(0, 0)
+        Me.layoutControlItem1.MaxSize = New System.Drawing.Size(404, 0)
+        Me.layoutControlItem1.MinSize = New System.Drawing.Size(116, 40)
+        Me.layoutControlItem1.Name = "layoutControlItem1"
+        Me.layoutControlItem1.Size = New System.Drawing.Size(950, 40)
+        Me.layoutControlItem1.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
+        Me.layoutControlItem1.Text = "Address line 1:"
+        Me.layoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
+        Me.layoutControlItem1.TextSize = New System.Drawing.Size(112, 13)
+        '
+        'layoutControlItem2
+        '
+        Me.layoutControlItem2.Control = Me.textEdit2
+        Me.layoutControlItem2.CustomizationFormText = "Address line 2:"
+        Me.layoutControlItem2.Location = New System.Drawing.Point(0, 40)
+        Me.layoutControlItem2.MaxSize = New System.Drawing.Size(404, 0)
+        Me.layoutControlItem2.MinSize = New System.Drawing.Size(116, 40)
+        Me.layoutControlItem2.Name = "layoutControlItem2"
+        Me.layoutControlItem2.Size = New System.Drawing.Size(950, 40)
+        Me.layoutControlItem2.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
+        Me.layoutControlItem2.Text = "Address line 2:"
+        Me.layoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top
+        Me.layoutControlItem2.TextSize = New System.Drawing.Size(112, 13)
+        '
+        'layoutControlItem3
+        '
+        Me.layoutControlItem3.Control = Me.textEdit3
+        Me.layoutControlItem3.CustomizationFormText = "City:"
+        Me.layoutControlItem3.Location = New System.Drawing.Point(0, 80)
+        Me.layoutControlItem3.MaxSize = New System.Drawing.Size(404, 0)
+        Me.layoutControlItem3.MinSize = New System.Drawing.Size(116, 40)
+        Me.layoutControlItem3.Name = "layoutControlItem3"
+        Me.layoutControlItem3.Size = New System.Drawing.Size(950, 40)
+        Me.layoutControlItem3.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
+        Me.layoutControlItem3.Text = "City:"
+        Me.layoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
+        Me.layoutControlItem3.TextSize = New System.Drawing.Size(112, 13)
+        '
+        'layoutControlItem4
+        '
+        Me.layoutControlItem4.Control = Me.textEdit4
+        Me.layoutControlItem4.CustomizationFormText = "State/Province/Region:"
+        Me.layoutControlItem4.Location = New System.Drawing.Point(0, 120)
+        Me.layoutControlItem4.MaxSize = New System.Drawing.Size(404, 0)
+        Me.layoutControlItem4.MinSize = New System.Drawing.Size(116, 40)
+        Me.layoutControlItem4.Name = "layoutControlItem4"
+        Me.layoutControlItem4.Size = New System.Drawing.Size(950, 40)
+        Me.layoutControlItem4.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
+        Me.layoutControlItem4.Text = "State/Province/Region:"
+        Me.layoutControlItem4.TextLocation = DevExpress.Utils.Locations.Top
+        Me.layoutControlItem4.TextSize = New System.Drawing.Size(112, 13)
+        '
+        'layoutControlItem5
+        '
+        Me.layoutControlItem5.Control = Me.textEdit5
+        Me.layoutControlItem5.CustomizationFormText = "ZIP:"
+        Me.layoutControlItem5.Location = New System.Drawing.Point(0, 160)
+        Me.layoutControlItem5.MaxSize = New System.Drawing.Size(404, 0)
+        Me.layoutControlItem5.MinSize = New System.Drawing.Size(116, 40)
+        Me.layoutControlItem5.Name = "layoutControlItem5"
+        Me.layoutControlItem5.Size = New System.Drawing.Size(950, 40)
+        Me.layoutControlItem5.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
+        Me.layoutControlItem5.Text = "ZIP:"
+        Me.layoutControlItem5.TextLocation = DevExpress.Utils.Locations.Top
+        Me.layoutControlItem5.TextSize = New System.Drawing.Size(112, 13)
+        '
+        'frmSearch
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1220, 701)
+        Me.Controls.Add(Me.LayoutControl1)
+        Me.Controls.Add(Me.NavBarControl1)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Name = "frmSearch"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "Search"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.NavBarControl1.ResumeLayout(False)
+        Me.NavBarGroupControlContainer1.ResumeLayout(False)
+        CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.LayoutControl1.ResumeLayout(False)
+        CType(Me.textEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.textEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.textEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.textEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.textEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.layoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.layoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents NavBarControl1 As DevExpress.XtraNavBar.NavBarControl
+    Friend WithEvents NavBarGroup1 As DevExpress.XtraNavBar.NavBarGroup
+    Friend WithEvents NavBarGroupControlContainer1 As DevExpress.XtraNavBar.NavBarGroupControlContainer
+    Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory
+    Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents ImageListBoxControl1 As DevExpress.XtraEditors.ImageListBoxControl
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
+    Friend WithEvents textEdit1 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents textEdit2 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents textEdit3 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents textEdit4 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents textEdit5 As DevExpress.XtraEditors.TextEdit
+    Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents LayoutControlGroup4 As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents layoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents layoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents layoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents layoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
+    Friend WithEvents layoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
+End Class

EDMI_ClientSuite/frmSearch.resx

@@ -117,4 +117,45 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="BarButtonItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAmdEVYdFRpdGxlAEZpbmQ7QmFycztSaWJib247U3Rh
+        bmRhcmQ7U2VhcmNou2WcCAAAAHBJREFUOE+1jtENgDAIRLugaziIU7kdckYIVKhE68dLw931oBGRsmw7
+        CRUduCELZjoIQzac6UJfsPZBOzOnL3/AnIIupDx5IN0+wF2RbrgY+ragul3QK/4rgMmv4DxmfsENmELk
+        A3jfC2zwDaFYh9oB/j2jilUn/gYAAAAASUVORK5CYII=
+</value>
+  </data>
+  <data name="BarButtonItem1.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAmdEVYdFRpdGxlAEZpbmQ7QmFycztSaWJib247U3Rh
+        bmRhcmQ7U2VhcmNou2WcCAAAALlJREFUWEft0FEOAiEMhOG9oNfwIJ7K22FqICnjD5aIbDQ8fA9MprXu
+        kVI6FYYrYbgShupyuydBnZeedgiGKro42vMwVNHF0Z6HYaEL1WiPYFjkBVe/zJMeec6WHsGw8EsafI/s
+        A374AFnUEu763R6GJg/2/n1U9ytgaPzwh753gHRbxg6Q4en096qHycUZn17hl6gexpcn+7MDGnM9+4B9
+        wD5g6IC3Zs1VD0NDZNZc9TgDhithuE46Hq7c+XFU2QSKAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAEV4cG9ydDtTYXZlRtSeMQAAAH5J
+        REFUOE+9zjEOgCAMQFHO6wEcSTyDA0dgdHTibLU1tjZNBdTo8CIC/SEAwCvu5h2ymIelIEC0pq+Hz4oX
+        sJc03pOz3wOsO1DTDHT5NMBPFWNOWtT/TwKAJNIboCFrj3gB6ypAog6sZrAVmND5ghq6qMgwcQcsvnyQ
+        4TGnsAGFnInIUes/lQAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAEV4cG9ydDtTYXZlRtSeMQAAAURJ
+        REFUWEfdlsFpw0AQRd2KKzH45FpSgI8B1+CDStAxdaSPgMtQ5guv2Pn6Y63kZQU+PMLM7Mx/BGx8GIZh
+        V2SzJbLZEtlsyaxx//o5Gb/GkIF+Iu+/gt/i5onzXAHs0SNbStQQAA/OcwUQS6BEgOfyLee5AqglIx2P
+        5oDn8i3nuQKoJSMdj+aA5/It57kCqCUjHY/mgOfyLee5AqglIx2P5orPFVjD7BbnuQKopZpwniuAWqoJ
+        57kCqKWacJ4rAC2cDfTe4WjcjE0CfOwl175TfOOvzUcJmjURQOgkkfVHWglMEkxLASlRWyAPi3ASewiA
+        SWIvATBKLAlccLgUCijhtiSwhrUC40dSCfzR4VLWCEzfB0oA/3b1y3iJUgH3ZaQENpMfzgjDwUzgHfj4
+        kzAcyENbUQFGGA7koa2oACMMv/bd4R8cYf1FvaRMggAAAABJRU5ErkJggg==
+</value>
+  </data>
 </root>

EDMI_ClientSuite/frmSearch.vb

@@ -0,0 +1,17 @@
+Imports DevExpress.XtraEditors.Controls
+
+Public Class frmSearch
+    Private Sub frmSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        Dim oList As New List(Of String) From {"Marvin", "Marlon", "Annette", "Jan", "Jonathan", "Vladimir", "Armin"}
+
+        For Each oMember In oList
+            Dim oItem As New ImageListBoxItem(oMember, oMember)
+
+            ImageListBoxControl1.Items.Add(oItem)
+        Next
+
+
+
+    End Sub
+End Class

Modules.Logging/Logging.vbproj

@@ -89,6 +89,7 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
+    <Compile Include="TraceListener.vb" />
   </ItemGroup>
   <ItemGroup>
     <EmbeddedResource Include="My Project\Resources.resx">

Modules.Logging/TraceListener.vb

@@ -0,0 +1,249 @@
+Imports System
+Imports System.Configuration
+Imports System.Diagnostics
+Imports System.Globalization
+Imports System.IO
+Imports System.Security.Permissions
+Imports System.Text.RegularExpressions
+
+<HostProtection(Synchronization:=True)>
+Public Class RollingXmlWriterTraceListener
+    Inherits XmlWriterTraceListener
+
+    Private Shared ReadOnly LogFileNumberCaptureName As String = "LogFileNumber"
+    Private attributesLoaded As Boolean = False
+    Private logfileSuffixExpression As Regex = New Regex("_(?<" & LogFileNumberCaptureName & ">\d*)\.", RegexOptions.Compiled)
+    Private currentFileSuffixNumber As Integer = 0
+    Private _maxTraceFileSize As Long = 128 * 1024 * 1024
+    Private basicTraceFileName As String = String.Empty
+
+    Public Sub New(ByVal filename As String)
+        MyBase.New(filename)
+        Me.basicTraceFileName = filename
+        Me.currentFileSuffixNumber = Me.GetTraceFileNumber()
+        Me.StartNewTraceFile()
+    End Sub
+
+    Public Sub New(ByVal filename As String, ByVal name As String)
+        MyBase.New(filename, name)
+        Me.basicTraceFileName = filename
+        Me.StartNewTraceFile()
+    End Sub
+
+    Public ReadOnly Property CurrentTraceFileName As String
+        Get
+            Return Path.Combine(Path.GetDirectoryName(Me.basicTraceFileName), Path.GetFileNameWithoutExtension(Me.basicTraceFileName) & "_" & Me.currentFileSuffixNumber.ToString().PadLeft(4, "0"c) & Path.GetExtension(Me.basicTraceFileName))
+        End Get
+    End Property
+
+    Public Property MaxTraceFileSize As Long
+        Get
+
+            If Not Me.attributesLoaded Then
+                Me.LoadAttributes()
+            End If
+
+            Return Me._maxTraceFileSize
+        End Get
+        Set(ByVal value As Long)
+
+            If Not Me.attributesLoaded Then
+                Me.LoadAttributes()
+            End If
+
+            Me._maxTraceFileSize = value
+        End Set
+    End Property
+
+    Protected ReadOnly Property IsRollingConditionReached As Boolean
+        Get
+            Dim streamWriter As StreamWriter = CType(Me.Writer, StreamWriter)
+            Dim fileStream As FileStream = CType(streamWriter.BaseStream, FileStream)
+            Dim traceFileName As String = fileStream.Name
+            Dim traceFileInfo As FileInfo = New FileInfo(traceFileName)
+
+            If traceFileInfo.Length > Me._maxTraceFileSize Then
+                Return True
+            Else
+                Return False
+            End If
+        End Get
+    End Property
+
+    Public Overrides Sub Fail(ByVal message As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.Fail(message)
+    End Sub
+
+    Public Overrides Sub Fail(ByVal message As String, ByVal detailMessage As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.Fail(message, detailMessage)
+    End Sub
+
+    Public Overrides Sub TraceData(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ByVal data As Object)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.TraceData(eventCache, source, eventType, id, data)
+    End Sub
+
+    Public Overrides Sub TraceData(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ParamArray data As Object())
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.TraceData(eventCache, source, eventType, id, data)
+    End Sub
+
+    Public Overrides Sub TraceEvent(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.TraceEvent(eventCache, source, eventType, id)
+    End Sub
+
+    Public Overrides Sub TraceEvent(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ByVal message As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.TraceEvent(eventCache, source, eventType, id, message)
+    End Sub
+
+    Public Overrides Sub TraceEvent(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ByVal format As String, ParamArray args As Object())
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.TraceEvent(eventCache, source, eventType, id, format, args)
+    End Sub
+
+    Public Overrides Sub TraceTransfer(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal id As Integer, ByVal message As String, ByVal relatedActivityId As Guid)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.TraceTransfer(eventCache, source, id, message, relatedActivityId)
+    End Sub
+
+    Public Overrides Sub Write(ByVal o As Object)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.Write(o)
+    End Sub
+
+    Public Overrides Sub Write(ByVal o As Object, ByVal category As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.Write(o, category)
+    End Sub
+
+    Public Overrides Sub Write(ByVal message As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.Write(message)
+    End Sub
+
+    Public Overrides Sub Write(ByVal message As String, ByVal category As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.Write(message, category)
+    End Sub
+
+    Public Overrides Sub WriteLine(ByVal o As Object)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.WriteLine(o)
+    End Sub
+
+    Public Overrides Sub WriteLine(ByVal o As Object, ByVal category As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.WriteLine(o, category)
+    End Sub
+
+    Public Overrides Sub WriteLine(ByVal message As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.WriteLine(message)
+    End Sub
+
+    Public Overrides Sub WriteLine(ByVal message As String, ByVal category As String)
+        If Me.IsRollingConditionReached Then
+            Me.StartNewTraceFile()
+        End If
+
+        MyBase.WriteLine(message, category)
+    End Sub
+
+    Protected Overrides Function GetSupportedAttributes() As String()
+        Return New String(0) {"MaxTraceFileSize"}
+    End Function
+
+    Private Sub StartNewTraceFile()
+        Dim streamWriter As StreamWriter = CType(Me.Writer, StreamWriter)
+        Dim fileStream As FileStream = CType(streamWriter.BaseStream, FileStream)
+        fileStream.Close()
+        Me.currentFileSuffixNumber += 1
+        Me.Writer = New StreamWriter(New FileStream(Me.CurrentTraceFileName, FileMode.Create))
+    End Sub
+
+    Private Function GetTraceFileNumber() As Integer
+        Dim directoryName As String = Path.GetDirectoryName(Me.basicTraceFileName)
+        Dim basicTraceFileNameWithoutExtension As String = Path.GetFileNameWithoutExtension(Me.basicTraceFileName)
+        Dim basicTraceFileNameExtension As String = Path.GetExtension(Me.basicTraceFileName)
+        Dim existingLogFiles As String() = Directory.GetFiles(directoryName, basicTraceFileNameWithoutExtension & "*")
+        Dim highestNumber As Integer = -1
+
+        For Each existingLogFile As String In existingLogFiles
+            Dim match As Match = Me.logfileSuffixExpression.Match(existingLogFile)
+
+            If match IsNot Nothing Then
+                Dim tempInt As Integer
+
+                If match.Groups.Count >= 1 AndAlso Integer.TryParse(match.Groups(LogFileNumberCaptureName).Value, tempInt) AndAlso tempInt >= highestNumber Then
+                    highestNumber = tempInt
+                End If
+            End If
+        Next
+
+        Return highestNumber
+    End Function
+
+    Private Sub LoadAttributes()
+        If Attributes.ContainsKey("MaxTraceFileSize") AndAlso Not String.IsNullOrEmpty(Attributes("MaxTraceFileSize")) Then
+            Dim tempLong As Long = 0
+            Dim attributeValue As String = Attributes("MaxTraceFileSize")
+
+            If Long.TryParse(attributeValue, tempLong) Then
+                Me._maxTraceFileSize = Long.Parse(Attributes("MaxTraceFileSize"), NumberFormatInfo.InvariantInfo)
+            Else
+                Throw New ConfigurationErrorsException(String.Format("Trace listener {0} has an unparseable configuration attribute ""MaxTraceFileSize"". The value ""{1}"" cannot be parsed to a long value.", Me.Name, attributeValue))
+            End If
+        End If
+
+        Me.attributesLoaded = True
+    End Sub
+End Class