1. Создать новое окно с меню.  
   2. Скрипт на событие (добавление пункта меню)
   
      MenuID.Item[UpperBound(MenuID.Item[]) + 1] = CREATE menu 
      MenuID.Item[UpperBound(MenuID.Item[])].text = "&Новый пункт меню"  
      MenuID.Item[UpperBound(MenuID.Item[])].ToolBarItemName = "SAVE!"  
      MenuID.Item[UpperBound(MenuID.Item[])].ToolBarItemVisible = True  
      Hide(MenuID.Item[1])
      Show(MenuID.Item[1])