msoControlButtonPopup "Invalid Procedure Call"

[Star_Dragon]

I'm trying to create a Custom (blank) CommanBarPopup of Type:=msoControlButtonPopup (would prefer msoControlSplitButtonPopup). Microsofts website hasn't helped at all. Here's what I've got so far.

Sub Create_MyBar()
Dim Bar As CommandBar
Dim Pop As CommandBarPopup

Set Bar = CommandBars.Add("My Bar")
Set Pop = Bar.Controls.Add(msoControlButtonPopup)
End Sub

On the Line "Set Pop = Bar.Controls.Add(msoControlButtonPopup)" I get an "Invalid Procedure Call".

[Daniel McCool]

Set Pop = Bar.Controls.Add([U]Type:=[/U]msoControlButtonPopup)

[Star_Dragon]

I tried it with the "Type:=" call and it still gives me an invalid procedure call. I don't understand why I can't create this button with the following code.

Sub Create_MyBar()
    Dim Bar As CommandBar
    Dim Pop As CommandBarPopup
    
    Set Bar = CommandBars.Add("My Bar")
    Set Pop = Bar.Controls.Add(Type:=msoControlButtonPopup)
End Sub

[Daniel McCool]

Dim toolbar As CommandBar
    Set toolbar = CommandBars.Add
 
' Make sure it is visible
    With toolbar
        .Name = "My Bar"
        .Position = msoBarTop
        .Protection = msoBarNoCustomize
        .Visible = True
    End With
 
'Load it
Set Button = CommandBars("My Bar").Controls.Add(Type:=msoControlButtonPopup)
 
'Adjust the button if you want
    With Button
        .OnAction = "Macro1"
        .Style = msoButtonIconAndCaption
        .FaceId = 300
        .caption = "Drop Me Down"
    End With

[Star_Dragon]

Here's what I've got now

Sub Create_MyBar()
    Dim Bar As CommandBar
    Dim Button As CommandBarPopup
    
    Set Bar = CommandBars.Add("My Bar")
    Set Button = CommandBars("My Bar").Controls.Add(Type:=msoControlButtonPopup)
End Sub

The code does create the CommandBar named "My Bar", but errors out on the Set Button. It's almost like it won't allow acess to creating a msoControlButtonPopup. The buttons I know I can make are msoControlButton, msoControlEdit, msoControlPopup, msoControlDropdown, and msoControlComboBox. This is completely confusing me.