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