Has anyone figured out how to find a commandBar of type xtpBarPopup?

In the rtfText_Click event of the Office2003 sample:

Set popup = CommandBars.Add("Popup", xtpBarPopup)
        With popup.Controls
             .Add xtpControlButton, ID_FILE_NEW, "&New", -1, False
             .Add xtpControlButton, ID_FILE_OPEN, "&Open", -1, False
             .Add xtpControlButton, ID_FILE_SAVE, "&Save", -1, False
       
             Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "&Print", -1, False)
             Control.BeginGroup = True
       
             Set Control = .Add(xtpControlButton, ID_EDIT_CUT, "Cu&t", -1, False)
             Control.BeginGroup = True
       
             .Add xtpControlButton, ID_EDIT_COPY, "&Copy", -1, False
             .Add xtpControlButton, ID_EDIT_PASTE, "&Paste", -1, False
        End With
   
        popup.ShowPopup

...works to add a Popup, but CommandBars.Count doesn't seem to change.

If you cycle through the collection, it doesn't appear to be there. If you use .Find Control on CommandBars or CommandBars.ActiveMenuBar, it doesn't appear to be there.

Maybe that's why the Popup is added every time in the Click event, because it's temporary?

rob