Dim customMenu As New IGMenuItem (“Custom Menu”)
'デフォルトのコンテキスト メニューを削除します
'e.ContextMenu.Dispose ()
If e.ClickArea = ClickArea.GroupHeader Then
'イベントが前回発生した間に行った任意の変更を元に戻し、「デフォルト」のバージョンが表示されるように、ContextMenu をリセットします。
e.ResetMenu ()
e.ContextMenu.MenuItems.Add (customMenu)
End If