Set ControlOptions = RibbonBar.Controls.Add(xtpControlPopup, 0, "Options")

    ControlOptions.Flags = xtpFlagRightAlign

    

    Dim Control2 As CommandBarControl

    

    Set Control = ControlOptions.CommandBar.Controls.Add(xtpControlPopup, 0, "Styles")

    Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLUE2007, "Office 2007 Blue"

    Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLESILVER2007, "Office 2007 Silver"

    Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLEBLACK2007, "Office 2007 Black"

    Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEAQUA2007, "Office 2007 Aqua")

    Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEBLUE2010, "Office 2010 Blue")

    Control2.BeginGroup = True

    Control.CommandBar.Controls.Add xtpControlButton, ID_OPTIONS_STYLESILVER2010, "Office 2010 Silver"

    Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLEBLACK2010, "Office 2010 Black")

    Set Control2 = Control.CommandBar.Controls.Add(xtpControlButton, ID_OPTIONS_STYLESCENIC7, "Windows 7 Scenic")

    Control2.BeginGroup = True

    

    

    

    Dim Control3 As CommandBarControl

    Dim Control4 As CommandBarControl

 

    

     Set Control3 = ControlOptions.CommandBar.Controls.Add(xtpControlPopup, 0, "Skins")

     

     Control3.CommandBar.Controls.Add xtpControlPopup, 0, "Windows Skins"

     Control3.CommandBar.Controls.Add xtpControlPopup, 1, "Other Skins"

     Set Control4 = Control3.CommandBar.Controls.Add(xtpControlButton, ID_SKINOPTIONS_OTHER, "Blue")