---

Hallo!

schaut Euch doch mal bitte folgenden code an: was mache ich falsch, dass keine Trennlinie bei mir erscheint?

<code>
Dim oCommandBar As CommandBarBase
Set oCommandBar = oApp.EnvironmentBaseCollection.CommandBarBaseCollection.Add("Mein Menü")
       
Dim oCommandBarPopUp As CommandBarPopUp
Set oCommandBarPopUp = oCommandBar.Controls.Add(kBarControlPopUp)

Call oCommandBar.Controls.Add(kBarControlButton, oButtonHandlerX.ControlDefinition)
oCommandBarPopUp.GroupBegins = True
Call oCommandBar.Controls.Add(kBarControlButton, oButtonHandlerY.ControlDefinition)
   
Dim oEnvironmentBase As EnvironmentBase
Set oEnvironmentBase = oApp.EnvironmentBaseCollection.Item("AMxAssemblyEnvironment")
oEnvironmentBase.PanelBarList.Add oCommandBar
</code>