ControlsEditingSketchContextMenuClass Class

private IToolbarMenu m_ToolbarMenu;

private void MainForm_Load(object sender, EventArgs e)
{
    //Create a new ToolbarMenu
    m_ToolbarMenu = new ToolbarMenu();

    //Share the ToolbarControl's command pool
    m_ToolbarMenu.CommandPool = axToolbarControl1.CommandPool;

    //Set the hook to the MapControl
    m_ToolbarMenu.SetHook(axMapControl1);

    //Add commands to the ToolbarMenu
    m_ToolbarMenu.AddItem("esriControls.ControlsEditingSketchContextMenu", 0, 0, false, esriCommandStyles.esriCommandStyleTextOnly);

    //Create each command on the ToolbarMenu so that the Accelerator Keys are recognized. 
    //Alternatively the user must popup the menu before using the Accelerator Keys
    long itemCount = m_ToolbarMenu.CommandPool.Count;
    for (int i = 0; i < itemCount; i++)
    {
        ICommand pCommand = m_ToolbarMenu.CommandPool.get_Command(i);
        pCommand.OnCreate(m_mapControl);
    }
}

private void MainForm_KeyDown(object sender, KeyEventArgs e)
{
    ICommandPool2 pPool2;
    pPool2 = m_ToolbarMenu.CommandPool as ICommandPool2;
    pPool2.TranslateAcceleratorKey((int)e.KeyCode);
}

private void axMapControl1_OnMouseUp(object sender, IMapControlEvents2_OnMouseUpEvent e)
{
    if (e.button == 2) m_ToolbarMenu.PopupMenu(e.x, e.y, axMapControl1.hWnd);
}

    Private m_ToolbarMenu As IToolbarMenu

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As EventArgs) Handles MyBase.Load
        'get the MapControl
        m_mapControl = CType(axMapControl1.Object, IMapControl3)

        'disable the Save menu (since there is no document yet)
        menuSaveDoc.Enabled = False

        'Create a new ToolbarMenu
        m_ToolbarMenu = New ToolbarMenu()

        'Share the ToolbarControl's command pool
        m_ToolbarMenu.CommandPool = axToolbarControl1.CommandPool

        'Set the hook to the MapControl
        m_ToolbarMenu.SetHook(axMapControl1)

        'Add commands to the ToolbarMenu
        m_ToolbarMenu.AddItem("esriControls.ControlsEditingSketchContextMenu", 0, 0, False, esriCommandStyles.esriCommandStyleTextOnly)

        'Create each command on the ToolbarMenu so that the Accelerator Keys are recognized. Alternatively
        'the user must popup the menu before using the Accelerator Keys
        Dim itemCount As Integer
        itemCount = m_ToolbarMenu.CommandPool.Count
        Dim i As Integer
        For i = 0 To itemCount - 1
            Dim pCommand As ICommand
             pCommand = CType(m_ToolbarMenu.CommandPool.Command(i), ICommand)
             pCommand.OnCreate(m_mapControl)
        Next

    End Sub

    Private Sub axMapControl1_OnMouseUp(ByVal sender As System.Object, ByVal e As ESRI.ArcGIS.Controls.IMapControlEvents2_OnMouseUpEvent) Handles axMapControl1.OnMouseUp
        If (e.button = 2) Then
            m_ToolbarMenu.PopupMenu(e.x, e.y, axMapControl1.hWnd)
        End If
    End Sub

    Private Sub MainForm_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Dim pPool2 As ICommandPool2
        pPool2 = CType(m_ToolbarMenu.CommandPool, ICommandPool2)
        pPool2.TranslateAcceleratorKey(e.KeyCode)
    End Sub