Saving the RibbonBar

 

I'm saving the ribbonbar as follows:

 

    Dim oState As StateOptions
   
    Set oState = cbar.CreateStateOptions
    With oState
        .LoadSilent = False
        .SaveOnlyCustomized = False
        .SaveOriginalControls = True
        .SerializeDesignerControls = True
        .SerializeControls = True
        .SerializeImages = True
        .SerializeLayout = True
        .SerializeOptions = True
        .SerializeActions = True
    End With
   
    Dim sXML  As String
    Dim sFile As String
    Dim iFile As Integer
   
    sXML = cbar.SaveStateToXMLString("DesignerFile", oState)
   
    sFile = App.Path & "\Layout.xml"
    iFile = FreeFile
    'Kill sFile
    Open sFile For Binary As #iFile
    Put #iFile, , sXML
    Close #iFile

 

Then I load it as follows:

 

    Dim oState As StateOptions
    Dim oRib As RibbonBar
   
    Set oState = cbar.CreateStateOptions
    With oState
        .LoadSilent = False
        .SaveOnlyCustomized = False
        .SaveOriginalControls = True
        .SerializeDesignerControls = True
        .SerializeControls = True
        .SerializeImages = True
        .SerializeLayout = True
        .SerializeOptions = True
        .SerializeActions = True
    End With
   
    Dim sXML  As String
    Dim sFile As String
    Dim iFile As Integer

    sFile = App.Path & "\Layout.xml"
    iFile = FreeFile
    sXML = Space(FileLen(sFile))
    Open sFile For Binary As #iFile
    Get #iFile, , sXML
    Close #iFile
   
    cbar.LoadStateFromXMLString "DesignerFile", sXML, oState
    cbar.RecalcLayout

 

Problem! On loading the ribbonbar is not being displayed. How do I display it once loaded?

 

Thanks,

Ivan