WinForms Ribbon - MDI Ribbon merge

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using DevExpress.XtraEditors;
using DevExpress.XtraBars.Ribbon;

namespace RibbonMerging {
    public partial class Form1 : RibbonForm {
        public Form1() {
            InitializeComponent();

        }

        #region #1
        private void Form1_Load(object sender, EventArgs e) {
            // Enable the form's title bar transparency
            //this.AllowFormGlass = DevExpress.Utils.DefaultBoolean.False;
            // Specify that the merge mechanism should be invoked when a child MDI form is maximized.
            this.ribbonControl1.MdiMergeStyle = RibbonMdiMergeStyle.OnlyWhenMaximized;
            CreateChildForm();
        }
        private void btnNew_ItemClick(object sender, DevExpress.XtraBars.ItemClickEventArgs e) {
            CreateChildForm();
        }
        int ctr = 1;
        void CreateChildForm() {
            // Create an MDI child form, containing a RibbonControl
            ReportForm child = new ReportForm();
            child.Text = "Report " + ctr.ToString();
            child.MdiParent = this;
            child.Show();
            ctr++;
        }
        #endregion #1
    }
}

Visual Basic
Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports DevExpress.XtraBars.Ribbon

Namespace RibbonMerging

    Public Partial Class Form1
        Inherits RibbonForm

        Public Sub New()
            InitializeComponent()
        End Sub

'#Region "#1"
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            ' Enable the form's title bar transparency
            'this.AllowFormGlass = DevExpress.Utils.DefaultBoolean.False;
            ' Specify that the merge mechanism should be invoked when a child MDI form is maximized.
            ribbonControl1.MdiMergeStyle = RibbonMdiMergeStyle.OnlyWhenMaximized
            CreateChildForm()
        End Sub

        Private Sub btnNew_ItemClick(ByVal sender As Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
            CreateChildForm()
        End Sub

        Private ctr As Integer = 1

        Private Sub CreateChildForm()
            ' Create an MDI child form, containing a RibbonControl
            Dim child As ReportForm = New ReportForm()
            child.Text = "Report " & ctr.ToString()
            child.MdiParent = Me
            child.Show()
            ctr += 1
        End Sub
'#End Region  ' #1
    End Class
End Namespace

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using DevExpress.XtraBars.Ribbon;
using DevExpress.XtraEditors;

namespace RibbonMerging {
    public partial class ReportForm : XtraForm {
        public ReportForm() {
            InitializeComponent();
        }
    }
}

Visual Basic
Imports System.ComponentModel
Imports System.Drawing
Imports DevExpress.XtraEditors

Namespace RibbonMerging

    Public Partial Class ReportForm
        Inherits XtraForm

        Public Sub New()
            InitializeComponent()
        End Sub
    End Class
End Namespace