Ribbonbar does not wrap menus

Hi,

When using the ribbon bar as the menu system (to get the the Big O) I don't seem to be able to get the menus to wrap and drop down onto the next line.



But when just using the command bar it just works.


Does anyone know the setting i've missed?  I just don't seem to to be able to see it.

I've attached a demo project with a bool to toggle both menu modes;
uploads/6296/CodeJockMDIissue-MenuOverlap.zip

And this is the code;

Private Sub MDIForm_Load()
    Dim objRibbon As RibbonBar
    Dim objRootMenuBar As CommandBar
    Dim objControl As CommandBarControl
    Dim blnUseRibbon As Boolean
   
    blnUseRibbon = True
   
    CommandBarsGlobalSettings.App = App

    SkinFramework1.LoadSkin App.Path & "\Styles\" & "Office2007.cjstyles", "NORMALBLACK.INI"
    'SkinFramework1.LoadSkin App.Path & "\Styles\" & "Office2007.cjstyles", "NORMALBLUE.INI"
    SkinFramework1.ApplyOptions = xtpSkinApplyMetrics Or xtpSkinApplyFrame Or xtpSkinApplyColors Or xtpSkinApplyMenus

    SkinFramework1.ApplyWindow Me.hWnd
    CommandBarsGlobalSettings.Office2007Images = App.Path & "\Styles\" & "Office2007Black.dll"
    If blnUseRibbon Then
        SkinFramework1.RemoveWindow Me.hWnd
    End If

    CommandBars1.EnableActions
    CommandBars1.VisualTheme = xtpThemeOffice2007

    With CommandBars1.Options
        .KeyboardCuesShow = xtpKeyboardCuesShowAlways
        .KeyboardCuesUse = xtpKeyboardCuesUseNone
        .ShowKeyboardTips = True
    End With

    ' Create ribbon bar
    If blnUseRibbon Then
        Set objRibbon = CommandBars1.AddRibbonBar("RB")
        objRibbon.EnableDocking xtpFlagAlignTop
        objRibbon.EnableFrameTheme
    Else
        Set objRootMenuBar = CommandBars1.AddMenuBar("MAIN")
        objRootMenuBar.ShowGripper = False
    End If
   

    ' Big O system button
    If blnUseRibbon Then
        Set objControl = objRibbon.AddSystemButton
        Set objRootMenuBar = objControl.Parent
    Else
        Set objControl = objRootMenuBar.Controls.Add(xtpControlPopup, 78, "File")
    End If
    objControl.CommandBar.Controls.Add xtpControlButton, 1, "AAA"
    objControl.CommandBar.Controls.Add xtpControlButton, 2, "BBB"
    objControl.CommandBar.Controls.Add xtpControlButton, 3, "CCC"

    Dim a As Integer

    For a = 0 To 10
        ' Invoice Menu
        Set objControl = objRootMenuBar.Controls.Add(xtpControlButtonPopup, 300, "Menu " & a)
        objControl.CommandBar.Controls.Add xtpControlButton, 301, "New Invoice"
        objControl.CommandBar.Controls.Add xtpControlButton, 302, "Amend Invoice"
    Next a

    ' Help Menu
    Set objControl = objRootMenuBar.Controls.Add(xtpControlButtonPopup, 500, "Help")
    objControl.Flags = xtpFlagRightAlign 'Or xtpFlagWrapRow

    objControl.CommandBar.Controls.Add xtpControlButton, 501, "Help File"
    objControl.CommandBar.Controls.Add xtpControlButton, 502, "About"
End Sub

Unfortunately, it doesn't seem to work for the Ribbon menu...I haven't had much luck finding a solution either - this may be a question or request for CJ.