Public Function funCreateMenu(strMenu As String) As Boolean
Dim myBar As CommandBar
'Создаем панель меню
Set myBar = appAccess.CommandBars.Add(strMenu, msoBarTop, True)
funCreateMenuControls strMenu '<10> Создаем кнопки меню
myBar.Visible = True 'Отображаем меню
funCreateMenu = True 'Возвращаем результат