VBA语句加载CUIX菜单无法自动显示菜单问题

aaacjh

请教前辈：
               关于我使用VBA语句：RetVal = Application.MenuGroups.Load "D:\app\cui\HBC.cuix"
已经成功加载了，可是菜单无法自动显示出来，而手动加载cuix后点应用或确定就显示菜单了？

aaacjh

Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(2)
menuname = ThisDrawing.Application.MenuGroups.Item(2).Menus.Item(0).Name
currMenuGroup.Menus.InsertMenuInMenuBar menuname, ""