Create Context Menu Snippet

///<summary>Create a context or popup menu dynamically using some default command items.</summary>
///  
///<param name="application">An IApplication Interface.</param>
///   
///<remarks>Three default command items are added to the ContextMenu. Change the CLSID or ProgID as necessary for your specific command items.</remarks>
public void CreateContextMenu(ESRI.ArcGIS.Framework.IApplication application)
{
  ESRI.ArcGIS.Framework.ICommandBars commandBars=application.Document.CommandBars;
  ESRI.ArcGIS.Framework.ICommandBar commandBar=commandBars.Create("TemporaryContextMenu", ESRI.ArcGIS.SystemUI.esriCmdBarType.esriCmdBarTypeShortcutMenu);

  System.Object optionalIndex=System.Type.Missing;
  ESRI.ArcGIS.esriSystem.UID uid=new ESRI.ArcGIS.esriSystem.UIDClass();

  uid.Value="esriArcMapUI.ZoomInFixedCommand"; // Can use CLSID or ProgID
  uid.SubType=0;
  commandBar.Add(uid, ref optionalIndex);

  uid.Value="{FBF8C3FB-0480-11D2-8D21-080009EE4E51}"; // Can use CLSID or ProgID
  uid.SubType=1;
  commandBar.Add(uid, ref optionalIndex);

  uid.Value="{FBF8C3FB-0480-11D2-8D21-080009EE4E51}"; // Can use CLSID or ProgID
  uid.SubType=2;
  commandBar.Add(uid, ref optionalIndex);

  //Show the context menu at the current mouse location
  System.Drawing.Point currentLocation=System.Windows.Forms.Form.MousePosition;
  commandBar.Popup(currentLocation.X, currentLocation.Y);
}

'''<summary>Create a context or popup menu dynamically using some default command items.</summary>
'''  
'''<param name="application">An IApplication Interface.</param>
'''   
'''<remarks>Three default command items are added to the ContextMenu. Change the CLSID or ProgID as necessary for your specific command items.</remarks>
Public Sub CreateContextMenu(ByVal application As ESRI.ArcGIS.Framework.IApplication)

  Dim commandBars As ESRI.ArcGIS.Framework.ICommandBars=application.Document.CommandBars
  Dim commandBar As ESRI.ArcGIS.Framework.ICommandBar=commandBars.Create("TemporaryContextMenu", ESRI.ArcGIS.SystemUI.esriCmdBarType.esriCmdBarTypeShortcutMenu)

  Dim optionalIndex As System.Object=System.Type.Missing
  Dim uid As ESRI.ArcGIS.esriSystem.UID=New ESRI.ArcGIS.esriSystem.UIDClass

  uid.Value="esriArcMapUI.ZoomInFixedCommand" ' Can use CLSID or ProgID
  uid.SubType=0
  commandBar.Add(UID, optionalIndex)

  uid.Value="{FBF8C3FB-0480-11D2-8D21-080009EE4E51}" ' Can use CLSID or ProgID
  uid.SubType=1
  commandBar.Add(UID, optionalIndex)

  uid.Value="{FBF8C3FB-0480-11D2-8D21-080009EE4E51}" ' Can use CLSID or ProgID
  uid.SubType=2
  commandBar.Add(uid, optionalIndex)

  ' Show the context menu at the current mouse location
  Dim currentLocation As System.Drawing.Point=System.Windows.Forms.Form.MousePosition
  commandBar.Popup(currentLocation.X, currentLocation.Y)

End Sub