[VBA ACCESS] Creare barra di pulsanti

[VanessaInfo]

comeposso creare un abarra dei menu...con pulsanti invece d menu a discesa?
come quelled word ecc.....

la barra l'ho creata così:

Set myMenuBar = CommandBars.Add(Name:="Gazzetta Ufficiale", Position:=msoBarTop, MenuBar:=True, temporary:=True)
Set myToolBar = CommandBars.Add(Name:="GU", Position:=msoBarTop, MenuBar:=False, temporary:=True)
myToolBar.Visible = True

With myMenuBar
.Protection = msoBarNoMove
.Visible = True
End With


Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _
temporary:=True)
newMenu.Caption = "Gazzetta Ufficiale"

Set ctrl1 = newMenu.Controls _
.Add(Type:=msoControlButton, Id:=1)
ctrl1.Caption = "Chiudi"
ctrl1.ToolTipText = "Chiudi"
ctrl1.Style = msoButtonCaption
ctrl1.OnAction = "Chiudi"


ecc....

vorrei avere una barra d pulsant...

Grazie

Vane

[VanessaInfo]

up

[VanessaInfo]

up2