MDIListを右クリックで表示するには？

駆け出し 2004-09-22 19:05:44 No: 85691

MDIListメニュー

いつもお世話になっています。
MDIフォームについての質問なのですが、VB.NETでMDI親フォームのメニュー
バーにMDIListとして表示している内容と同じものを子フォーム内で右クリック
をするとコンテキストメニューのように表示したいのですが可能でしょうか？

VB6.0の頃は以下のようにして実現していました。

*** VB 6.0 ***
Set Obj_My_MDIForm = main_menu
Set Obj_My_MDIForm_Menu = Obj_My_MDIForm.Window_Control
Obj_My_Form.PopupMenu Obj_My_MDIForm_Menu

上記の「Window_Control」がメニューバー上のMDIListをTrueにしたものです。

ちなみに不完全ではありますが以下のようなPGで右クリックで表示してみると、
コンテキストメニューは表示されるのですが、一度メニューバーのリストを
クリックしないとMDIListの内容が反映されません。

Dim mp As Point = PointToClient(Cursor.Position)
・
・
ContextMenu1.Show(Obj_My_Form, mp)

Private Sub ContextMenu1_Popup(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup

    Dim menuItem1 As New MenuItem("&Copy")
    Dim menuItem2 As New MenuItem("&Find and Replace")
    Dim menuItem3 As New MenuItem("C&hange Picture")
    Dim wk_control As Control

    ContextMenu1.MenuItems.Clear()
    menuItem1 = Obj_My_MDIForm.Window_Control.MergeMenu()
    ContextMenu1.MenuItems.Add(menuItem1)
End Sub

よろしくお願いします。