or
Shared Sub dockMDIForm(ByVal mydockableform As Form) 'Check if form already in Dock Dim hw As HostWindow = frmMain.radDockMain.GetHostWindow(mydockableform) If Not hw Is Nothing Then 'Just show the window frmMain.radDockMain.ActiveWindow = hw Else 'Create a new instance of the Form & add to dock mydockableform.MdiParent = frmMain mydockableform.Show() 'frmMain.radDockMain.DockControl(mydockableform, DockPosition.Fill, DockType.Document) hw = frmMain.radDockMain.GetHostWindow(mydockableform) frmMain.radDockMain.ActiveWindow = hw End If End SubShared Sub dockForm(ByVal myForm As Form) myForm.FormBorderStyle = FormBorderStyle.None myForm.TopLevel = False myForm.WindowState = FormWindowState.Maximized 'Check if form already in Dock Dim hw As HostWindow = frmMain.radDockMain.GetHostWindow(myForm) If Not hw Is Nothing Then 'Just show the window frmMain.radDockMain.ActiveWindow = hw Else 'Create a new document Dim docWindow As DocumentWindow = New DocumentWindow() docWindow.Controls.Add(myForm) 'add to Dock With frmMain.radDockMain .AddDocument(docWindow, DockPosition.Fill) .ActiveWindow = docWindow End With docWindow.DockTabStrip.PerformLayout() End If End SubUserControlPlugInDemo ucpid = new UserControlPlugInDemo(); DockPosition dockTo = DockPosition.Fill; this.radDock1.DockControl(ucpid, dockTo, DockType.Document);
//HTML ImportHtmlFormatProvider msgHTML = new HtmlFormatProvider();RadDocument tempDoc = msgHTML.Import(this.scMsg.messageText.ToString());this.msgContent.Document = tempDoc; // msgContent is the instance of RadRichTextBox

(Like it is done in Microsoft Excel, when you open the save sub-menu. You see that every menu item there is bold and the description is non bold. The description text on top of that gets wrapped if it doesn't fit in the line. This is essential behaviour for a ribbon bar's start menu, isn't it?)
Thanks,
Klaus