SOLVED:I can't make extend sub menu,plz guide me

Hi all
I got problem to create sub extend menu.
i attached one sample create menu that i made,please take a look that and trim this code,more explaine wrote in the code
thanks all

20100309_021856_Project.rar

Hi Gibra
In the goto menu , i want to extent sub menu option1 and option2

Let me show you in this way :

File
Open
Goto >> Option1
      >> Option2

i don't know how cant i create option1 and option2 for Goto
please make it for me

thank you very much

Dear cmm2006 thanks for your attention
it was exactlly what i need,wish you trim my samples .
one question: what's deffrent between those code ?
i use this to make menu

Set ControlFile = AddButton(CommandBars.ActiveMenuBar.Controls, xtpControlPopup, ID_MENU_FILE)
    With ControlFile.CommandBar
             
        AddButton .Controls, xtpControlButton, ID_FILE_Optimizetools
        AddButton .Controls, xtpControlButton, ID_FILE_Userman, True
        AddButton .Controls, xtpControlButton, ID_FILE_Resetdatabase, True
        AddButton .Controls, xtpControlButton, ID_FILE_Printersetting, True
        AddButton .Controls, xtpControlButton, ID_FILE_EXIT, True
    
    
End With

and you use this :

Set ControlView = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&View")
    With ControlView.CommandBar.Controls
        Set Control = .Add(xtpControlPopup, 0, "&Toolbars")
        Control.CommandBar.Controls.Add xtpControlButton, ID_VIEW_TOOLBAR_STANDARD, "&Standard"
       
    End With

thanks agian for reply