'This example creates an action and adds it to the default context menu.
Sub AddMenuToDefaultMenuFix()
 
    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