Custom label

To add a form that contains some controls, you can do something like this:

    Set ControlEdit = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&Edit", -1, False)
    ControlEdit.Id = ID_EDIT
    With ControlEdit.CommandBar.Controls
        
        Dim ControlSearch As CommandBarControlCustom
        Dim crtlSearchForm As New frmSearch
       
        Set Control = .Add(xtpControlPopup, 0, "&Search", -1, False)
        Control.Id = ID_EDIT_FIND
        Set ControlSearch = Control.CommandBar.Controls.Add(xtpControlCustom, ID_SEARCH_FORM, "Search Form", -1, False)
        ControlSearch.Handle = crtlSearchForm.hwnd
       
        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

Basically, you can add anything that has a hwnd.  If the control does not have a hwnd, then you will have to place it on a form or inside another control that does have a hwnd.