Outlook Programming : How to get the File Menu commands programmatically?

This time we will try using the Outlook Object model, we can able to get the Outlook File Menu commands programmatically (I tried with Outlook 10)

    1:          ...

    2:          ' First get the ActiveExplorer

    3:          Dim oExp As Outlook.Explorer = oApp.ActiveExplorer()

    4:   

    5:          ' Then get the menu bar.

    6:          Dim oCmdBars As Office._CommandBars = oExp.CommandBars

    7:          Dim oCmdBar As Office.CommandBar = oCmdBars("Menu Bar")

    8:          'If needed display the CommandBar Name 

    9:          Console.WriteLine(oCmdBar.Name)

   10:   

   11:          ' Get the controls 

   12:          Dim oBrCrls As Office.CommandBarControls = oCmdBar.Controls

   13:   

   14:         ' Then get the File menu.

   15:          Dim oBPop As Office.CommandBarPopup = oBrCrls("File")

   16:         ' If needed display the caption

   17:          Console.WriteLine(oBPop.Caption)

   18:          oBrCrls = oBPop.Controls

   19:   

   20:          ' Then loop each menu & display the caption

   21:          Dim oBtn As Office.CommandBarControl

   22:          For Each oBtn In oBrCrls

   23:              Console.WriteLine(oBtn.Caption)

   24:          Next

   25:          ....