1. Create a new window with a menu.
    2. Script for the event (adding a menu item)
   
      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])