建立菜单如下
文件
...............变化  （不可见）
............................................显示
...............退出


下面通过弹出“变化”菜单，触发"显示"事件，使得上一级菜单”变化“可以显示出来
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbRightButton Then
        PopupMenu menuchange
    End If
End Sub

Private Sub menuDisplay_Click()
    menuchange.Visible = True
End Sub


可以看到，没有效果，”变化“菜单仍然处于不可见，为什么呢？代码没有错啊。



把点击事件的代码去掉，跟踪发现
尽管”变化“是不可见的，当弹出菜单时，会发现可见为真，当弹出菜单完成后会发现，可见为假。
那么，我们把弹出菜单时置为假时，最后再置真时，就会发现它就会始终保持最后一句的状态。
于是改为下面
Private Sub menuDisplay_Click()
    menuchange.Visible = False
    menuchange.Visible = True
End Sub


这样，就可以激活上一级可见菜单。

VB.Net程序设计：动态添加右键菜单和子菜单
具体分5步
1：定义一个ContextMenuStrip对象。
2：用withevents关键字声明一个ContextMenu对象Private WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu。
3：对ContextMenu对象进行初始化。
4：将ContextMenu对象加入ContextMenu对象。
5：将ContextMenu对象与form对象绑定。

例子：‘添加三个右键菜单，并每个菜单都添加两个子菜单，把右键菜单绑定到当前窗体
	
	Private cms As ContextMenuStrip =  New ContextMenuStrip() 
	Dim i As Integer
	
	For  i = 1 To  3
		Dim tsm As ToolStripMenuItem =  New ToolStripMenuItem(i.ToString()) 
		Dim j As Integer
		For  j = 1 To  2
			Dim tsmz As ToolStripMenuItem =  New ToolStripMenuItem(j.ToString()) 
			tsm.DropDown.Items.Add(tsmz)
		Next
		cms.Items.Add(tsm)
	Next

	Me.ContextMenuStrip = cms
例子：http://bbs.csdn.net/topics/350192775

 Dim cm As New ContextMenu
        Dim m As New MenuItem("菜单项1")
        AddHandler m.Click, AddressOf MenuItemClicked
        cm.MenuItems.Add(m)
        Dim m2 As New MenuItem("菜单项2")
        AddHandler m2.Click, AddressOf MenuItemClicked
        cm.MenuItems.Add(m2)
        Me.ContextMenu = cm '设置窗体右键菜单
绑定事件：
Public Sub MenuItemClicked(ByVal sender As Object, ByVal e As EventArgs)
        Dim m As MenuItem = DirectCast(sender, MenuItem)
        MessageBox.Show(m.Text)
    End Sub


读取菜单值：

建议把sender 对象强制转换为菜单，你就可以任意访问该菜单对象的属性了。例如Text,例如Tag属性等。

Dim menuItem As ToolStripMenuItem = DirectCast(sender, ToolStripMenuItem)

Dim temp As String = menuItem.Text

Dim  tag as object  = menuItem.tag


'详细一点的：仅供参考！http://s.yanghao.org/program/viewdetail.php?i=51247 
设置菜单的图标，是否合并，等。
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace ContextMenuStripDemo
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
           
        }
        private void InitListBox()
        {//添加ListBox的项
            for (int i = 0; i < 11; i++)
            {
                this.listBox1.Items.Add(i);
                this.listBox2.Items.Add(i);
            }
        }
        private void InitContextMenuStrip()
        {
            ContextMenuStrip contextMenuStrip = new ContextMenuStrip();//构造一个ContextMenuStrip
            contextMenuStrip.AllowMerge = false;//设置不能跟其他菜单合并
            ImageList imagelist = new ImageList();//设置图像集合
            imagelist.Images.Add(new Icon("delete.ico"));
            contextMenuStrip.ImageList = imagelist;
            contextMenuStrip.ShowCheckMargin = false;
            contextMenuStrip.ShowImageMargin = true;//显示图标在左边
            contextMenuStrip.ShowItemToolTips = true;//显示工具提示
            contextMenuStrip.TextDirection = ToolStripTextDirection.Horizontal;//水平显示文本
            contextMenuStrip.Opening += new CancelEventHandler(contextMenuStrip_Opening);
            this.listBox1.ContextMenuStrip = contextMenuStrip;//绑定到ListBox1控件
            this.listBox2.ContextMenuStrip = contextMenuStrip;//绑定到ListBox2控件
        }

        void contextMenuStrip_Opening(object sender, CancelEventArgs e)
        {
            ContextMenuStrip contextMenuStrip = sender as ContextMenuStrip;
            if (contextMenuStrip != null)
            {//第一次点击右键时,如果没有菜单项就添加
                if (contextMenuStrip.Items.Count == 0)
                {
                  ToolStripMenuItem itemDelete = new ToolStripMenuItem();
                  itemDelete.Text = "删除";
                  itemDelete.ImageIndex = 0;
                  itemDelete.Click += new EventHandler(itemDelete_Click);
                  contextMenuStrip.Items.Add(itemDelete);//增加菜单项
                 }
            }
            
        }

        void itemDelete_Click(object sender, EventArgs e)
        {
            ToolStripMenuItem Menuitem = sender as ToolStripMenuItem;
           ContextMenuStrip contextMenuStrip =  Menuitem.Owner as ContextMenuStrip;//获取父菜单对象
           if (contextMenuStrip != null)
           {//通过SourceControl获取目标控件
               ListBox listBox = contextMenuStrip.SourceControl as ListBox;
               if (listBox != null && listBox.SelectedIndex>-1)
               {
                   listBox.Items.RemoveAt(listBox.SelectedIndex);
               }
           }
                    }

        private void Form1_Load(object sender, EventArgs e)
        {
            InitContextMenuStrip();
            InitListBox();
        }
    }
}

．模块代码如下：
注意：因为有用到AddressOf OnMenu，函数OnMenu只能放在模块部分。


Public Const MF_POPUP = &H10&
Public Const MF_STRING = &H0&
Public Const MF_DISABLED = &H2&
Public Const MF_SEPARATOR = &H800&
Public Const MF_CHECKED = &H8&
Public Const MF_GRAYED = &H1&
Public Const MF_BYCOMMAND = &H0&
Public Const GWL_WNDPROC = (-4)
Public Const WM_COMMAND = &H111
Public Declare Function CreateMenu Lib "user32" () As Long
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Public Declare Function CreatePopupMenu Lib "user32" () As Long
Public Declare Function AppendMenu1 Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As String) As Long
Public Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public MenuCount As Long '菜单数量，不包括不能触发的菜单
Public MenuText() As String '菜单文本，ID=wParam的菜单的文本为MenuText(wParam - 1000)
Public OldWinProc As Long

Public Function OnMenu(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'{响应菜单事件}
Select Case wMsg
Case WM_COMMAND
If wParam > 1000 And wParam <= 1000 + MenuCount Then
MsgBox MenuText(wParam - 1000)
End If
End Select
OnMenu = CallWindowProc(OldWinProc, hwnd, wMsg, wParam, lParam)
End Function 



2．Form1代码如下：
设计窗体的Negotiation=False，以防止弹出对话框或响应OnMenu后窗体上的菜单消失


Private Sub Form_Load()
Call CreateActiveMenu
End Sub

Sub CreateActiveMenu()
Dim hMenu As Long, hSubMenu As Long
Dim hPopMenuTmp As Long
ReDim MenuText(0)

hMenu = GetMenu(Me.hwnd) '窗体级菜单句柄
If hMenu = 0 Then
'窗体上没有菜单时，创建菜单。这种情况下需在设计阶段设置窗体的NegotiatMenu=False菜单才能显示出来。
hMenu = CreateMenu()
End If

'添加到0级菜单
hSubMenu = hMenu
FullAllSubMenu hSubMenu

'添加到1级菜单
hSubMenu = GetSubMenu(hSubMenu, GetMenuItemCount(hSubMenu) - 1) '获取最后一个0级菜单的句柄
FullAllSubMenu hSubMenu

'添加到2级菜单
hSubMenu = GetSubMenu(hSubMenu, GetMenuItemCount(hSubMenu) - 1)
FullAllSubMenu hSubMenu

'添加到3级菜单
hSubMenu = GetSubMenu(hSubMenu, GetMenuItemCount(hSubMenu) - 1)
FullAllSubMenu hSubMenu

SetMenu Me.hwnd, hMenu
DrawMenuBar Me.hwnd
Me.Refresh

OldWinProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf OnMenu)
End Sub

Sub FullAllSubMenu(hFather As Long)
'加入全部子菜单
Dim hPopMenuTmp As Long
Dim i As Integer
hPopMenuTmp = CreatePopupMenu()
For i = 0 To 4
MenuCount = MenuCount + 1
'保存菜单文本，用于菜单事件触发时识别出被选择的菜单对象
ReDim Preserve MenuText(MenuCount)
MenuText(MenuCount) = "文件" & MenuCount
'加入子菜单，令其ID>1000，说明其为自动生成的菜单
AppendMenu1 hPopMenuTmp, MF_STRING, 1000 + MenuCount, MenuText(MenuCount)
'如果是间隔线，则wFlags=MF_SEPARATOR
'如果要Check，则wFlags=MF_STRING + MF_CHECKED，若令不可用，则再加MF_GRAYED
Next
AppendMenu1 hFather, MF_POPUP, hPopMenuTmp, "&Files"
End Sub 


 

 

 Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MenuStrip1.Items.Add("文件", Nothing, AddressOf menuItem_Click).Name = "mnuFile"
        MenuStrip1.Items.Add("编辑", Nothing, AddressOf menuItem_Click).Name = "mnuEdit"

        Dim doItem As ToolStripMenuItem = MenuStrip1.Items("mnuFile")
        doItem.DropDownItems.Add("打开", Nothing, AddressOf menuItem_Click).Name = "mnuOpen"
        doItem.DropDownItems.Add("保存", Nothing, AddressOf menuItem_Click).Name = "mnuSave"

    End Sub

    Private Sub menuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuStrip1.Click

        Try
            Select Case sender.name
                Case "mnuFile"
                    MsgBox("文件")
                Case "mnuEdit"
                    MsgBox("编辑")
                Case "mnuOpen"
                    MsgBox("打开")
                Case "mnuSave"
                    MsgBox("保存")

            End Select

        Catch ex As Exception

        End Try

    End Sub