Function MojMeni() Dim MeniBar Dim Kontrola Dim K As ComboBox Set MeniBar = CommandBars("moj") If MeniBar.Visible = False Then MeniBar.Visible = True Set Kontrola = MeniBar.Controls.Add(Type:=2) Set Kontrola = MeniBar.Controls.Add(Type:=3) Set Kontrola = MeniBar.Controls.Add(Type:=4) Kontrola.Style = 1 With Kontrola .Caption = "Godina:" .Text = Year(Date) .AddItem "2010", 1 .AddItem "2009", 2 End With End Function Function otvori() Dim godina godina = Application.CommandBars.ActionControl.Text MsgBox "otvorena:" & godina End Function