Hallo,

habe die Standart Menüleisten ausgeblendet und eine neue erstellt. Nur weiß ich nicht wie ich einem Menü-Punkt ein Untermenü gebe.

Menü "?" soll die Untermenü´s "Hilfe", "Info" und "Web" bekommen.

Frage 1:
Wie bekomme ich Untermenü´s in mein Code?

Frage 2:
Bei Click auf Untermenü "Web" soll eine Homepage geöffnet werden. Wie kann ich dem Menüpunkt das beibringen?

Danke

Grüße
Sascha

Set CBC = CB.Controls.Add(Type:=msoControlButton)
With CBC
.Style = msoButtonCaption
.Caption = "?"
.OnAction = "UserForm1"
End With