When you call AddControl  you remove it from previous CommandBar.

 

Add it to designerControls and use Copy method to copy it to MenuBar.

 

or just add same control twice 

CommandBars.DesignerControls.Add(xtpControlButton, 400, "&Temp")

thisControl.Controls.Add(xtpControlButton, 400, "&Temp")

 

I changed the code to:

 

    Set myControl = CommandBars.DesignerControls.Add(xtpControlButton, 400, "&Temp")
    myControl.Category = "TempCat"
    thisControl.Controls.AddControl myControl

 

and now the items appear in the Customize Commands list, but the Temp button does not appear on the menu bar.

 

If the I change the code to

 

    Set myControl = thisControl.Controls.Add(xtpControlButton, 400, "&Temp")
    myControl.Category = "TempCat"
    CommandBars.DesignerControls.AddControl myControl

Temp appears in the menu bar, but not in the Customize Commands list.

 

How do I get Temp to appear on the menu bar and the Customize Commands list?

 

 

You have modify DesignerControls property - add all controls you need here.

 

Here is an example. I take the Designer sample project (for VB6) and modify it so that the form load event now reads:

 

Private Sub Form_Load()

 

    'Begin Modification

    'for adding a menu item

    Dim thisControl As CommandBarControl
    Dim myControl As CommandBarControl

    'End Modification

 

    CommandBarsGlobalSettings.App = App
   
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", Me.Left)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", Me.Top)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", Me.Width)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", Me.Height)
   
    CommandBars.LoadDesignerBars
    CommandBars.LoadCommandBars "Codejock Software ActiveX Demos", App.Title, "Layout"