Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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