i try to add a MsoControlType=0 - 'Custom Control Type' for
CommandBarControl. But i don't know how to specify what custom control and
the correct sintax.
i found an example like:
--
Dim ControlSearch As CommandBarControlCustom, ControlEdit As
CommandBarPopup
Dim Control As CommandBarControl
Dim crtlSearchForm As New frmSearch
Set ControlEdit =
CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&Edit", -1, False)
With ControlEdit.CommandBar.Controls
Set Control = .Add(xtpControlPopup, 0, "&Search", -1, False)
Set ControlSearch =
Control.CommandBar.Controls.Add(xtpControlCustom, ID_SEARCH_FORM, "Search
Form", -1, False)
ControlSearch.Handle = crtlSearchForm.hwnd
End With