... CType(Application.CommandBars.ActiveMenuBar,Office.CommandBar)Dim cmdBarControl As Office.CommandBarPopup cmdBarControl =CType(menubar.Controls.Add(Office.MsoControlType.msoControlPopup, , ,menubar.Controls.Count, ... Office.CommandBarPopup)If Not cmdBarControl Is Nothing ThencmdBarControl.Caption = “&Refresh”‘ Add the menu command.Dim menuCommand As Office.CommandBarButtonmenuCommand =CType(cmdBarControl.Controls.Add(Office.MsoControlType.msoControlButton, ... menu command.Office.CommandBarButton menuCommand =(Office.CommandBarButton)cmdBarControl.Controls.Add(Office.MsoControlType.msoControlButton, missing, missing, missing, true);menuCommand.Caption...