I am trying to add a button to a popup control, but I am getting an error
message saying that the add method failed. Here is the code that I am using.
This code works for other controls.

Set oPop = Application.CommandBars("BPT_BOTTOM").Controls.Add
(Type:=msoControlPopup, Id:=30080, Befo=2)

oPop.Caption = "Change IT!"
'basic shapes------------------------------------------------

Set oSecondPop = oPop.Controls.Add(Type:=msoControlButtonPopup, Id:=1405,
Befo=1)

oSecondPop.Controls.Add Type:=msoControlButton, Id:=1232

Does anyone know what I am doing wrong?

Thanks,
Jeff