主题：菜单问题

如果是主表：
MainTable = Tables("表名")

如果是关联表：
Tables("关联表名称").Visible= True

至于菜单，只能单击或右击显示下拉菜单。

看2楼

假定希望在某个控件上右击事，能够显示某一快捷菜单，可以将该控件的MouseDown事件设为：

If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键
    ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单
End If

那就在MouserEnter事件中加入：

ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y)

你说的控件不是窗口控件吗？
例如窗口的某个按钮，将这个代码设置在按钮的MouseEnter事件即可。

如果你说的是菜单，没有这个功能，按标准的菜单做吧。