Sub AddMenuToDefaultMenu()
 
    Dim action As InputMapAction
    Dim sequence As InputMapActionSequence
    Dim menuItem As ContextMenuItem
    
    Dim menu As contextMenu
   
    'Get the default context menu.
    Set menu = ThisIbmTerminal.ContextMenus.ItemByName("Default")
 
    'Create an action sequence to hold the actions.
    Set sequence = New InputMapActionSequence
      
    'set an action to open the Office Tools Pane and add it to the sequence.
    Set action = New InputMapAction
    action.ActionId = InputMapActionID_OfficeToolsPaneAction
    sequence.Add action
    
    'Create the menu item for the Office Tools action and map it to the sequence.
    Set menuItem = New ContextMenuItem
    menuItem.Name = "Open Office Tools"
    menuItem.MenuItemType = ContextMenuItemType_MenuItem
    Set menuItem.mapping = sequence
   
    'Add the Office Tools menu item to the menu.
    menu.AddMenuItem menuItem
    
    'Update the menu
    ThisIbmTerminal.ContextMenus.Add menu
 
End Sub