Public Sub AddMenuToMenuBar(vsoApplication As Visio.Application)
    Dim cbrCommandBars  As Office.CommandBars
    Dim cbrMenuBar      As Office.CommandBar
    Dim cbrMenuPopup    As Office.CommandBarPopup
    
    On Error GoTo AddMenuToMenuBar_Err

    Set cbrCommandBars = vsoApplication.CommandBars

    Set cbrMenuBar = cbrCommandBars.ActiveMenuBar

    Set cbrMenuPopup = cbrMenuBar.Controls.Add( _
        Type:=msoControlPopup, _
        Temporary:=True)
    cbrMenuPopup.Caption = "#207;#238;#241;#242;#237;#238;#242;#224;#246;#232;#255;"

    AddMenuItemToMenuBar cbrCommandBars, cbrMenuPopup
    
    Exit Sub
    
AddMenuToMenuBar_Err:
    If Not (vsoApplication Is Nothing) Then
        If (vsoApplication.AlertResponse = 0) Then
            MsgBox Err.Description
        Else
            Debug.Print Err.Description
        End If
    Else
        Debug.Print Err.Description
    End If
    
End Sub

Public Sub AddMenuItemToMenuBar( _
    cbrCommandBars As Office.CommandBars, _
    cbrMenuPopup As Office.CommandBarPopup)

' AddMenuItemToMenuBar
'
' Abstract - Adds a MenuItem called "My File Open...", to
' the Popup Menu that is passed in. This MenuItem, when
' clicked, will simulate the click on the File/Open...
' MenuItem
'
' Parameters
' cbrCommandBars   The CommandBars object for the application
' cbrMenuPopup     The Popup Menu to which a MenuItem is to be
'                  added

    Dim cbrFilePopup    As Office.CommandBar
    Dim cbbMenuItem     As Office.CommandBarButton
    Dim cbbOpen         As Office.CommandBarButton

    On Error GoTo AddMenuItemToMenuBar_Err
    
    ' Get the ID of the "File/Open..." MenuItem
    Set cbrFilePopup = cbrCommandBars.Item("File")
    Set cbbOpen = cbrFilePopup.Controls.Item(2)
    
    ' Add a MenuItem with the ID of "File/Open...".
    Set cbbMenuItem = cbrMenuPopup.Controls.Add( _
        Type:=msoControlButton, _
        ID:=cbbOpen.ID, Temporary:=True)
        
    ' Set the caption for the MenuItem.
    cbbMenuItem.Caption = "#192;#226;#242;#238;#237;#243;#236;#229;#240;#224;#246;#232;#255; #244;#232;#227;#243;#240;..."
    cbbMenuItem.Style = msoButtonCaption
    cbbMenuItem.Visible = True
    cbbMenuItem.OnAction = "ShowNum"

Application.CommandBars("Menu Bar").Controls(10).Delete

Sub DeleteMenu()
  Dim cbrCommandBars  As Office.CommandBars
    Dim cbrMenuBar      As Office.CommandBar
    Dim cbrMenuPopup    As Office.CommandBarPopup
    
    Dim cbrFilePopup    As Office.CommandBar
    Dim cbbMenuItem     As Office.CommandBarButton
    Dim cbbOpen         As Office.CommandBarButton
    
    
    ' Get the CommandBars collection from Visio.
    Set cbrCommandBars = Application.CommandBars
    
    ' Get the active menu bar from the CommandBars
    ' collection.
    Set cbrMenuBar = cbrCommandBars.ActiveMenuBar

    cbrMenuBar.Controls("#207;#238;#241;#242;#237;#238;#242;#224;#246;#232;#255;").Delete
End Sub