vba的窗体中如何添加菜单？

一般情况下用CALL命令即可， 但是在菜单栏调用就比较麻烦点， 首先要建立自己的菜单命令，
方法如下：
Sub auto_open()
Dim AA As CommandBarPopup
On Error Resume Next
On Error GoTo 0
Set AA= Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
AA.Caption = "自定义菜单"'菜单名称自选
With AA.Controls.Add(msoControlButton, , , , True)
.Caption = "自定义按钮"’按钮名称自选
.OnAction = "自定义宏命令"'这里是要调用的宏程序名
End With
end sub

VB实现窗口的弹出式菜单

在Windows95、Windows98或NT的风格中，有按动鼠标器右键弹出下拉菜单的操作，在VB执行环境下，有一些控件本身具有弹下拉菜单的功能，如TexTbox控件等，但大多数编辑类控件以及窗体本身却没有此功能，要在窗口中任意位置实现PopUpMenu（弹出式菜单），可借助VB的菜单工具来实现。
首先，打开VB的“工具”菜单条，利用“菜单编辑器”为窗体生成一个菜单：
标题(Caption) 菜单条名(Name)
编辑 menuEdit
……复制 mnuCopy
……剪切 munCut
其次，将生成的menuEdit菜单设置为不可视。
Private Sub Form_Load()
Me.menuEdit.Visibe=False
′menuEdit菜单设置为不可视
End Sub
然后，利用MouseDown事件实现任意位置弹出PopUpMenu，如下例：
本例中以RichTexBox控件为例，在其上