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