VB版OFFICE2007风格菜单示例，附件：

   但不知道如何调用过程及如何更换菜单图标，敬请指点，谢谢！


.....

[此贴子已经被作者于2017-8-2 20:15编辑过]

在自己的工程直接引用他的自制控件就可以了

麻烦上传一个引用的示例看看效果，谢谢。

Public Function AddButton(zID As String, zSubCat As String, zCaption As String, zPicture As Integer, Optional zMore As Boolean = False, Optional zToolTip As String) As Boolean
你看一下函数的定义。

你再看一下你上传例子里的调用命令。图像ID: zPicture  ，全部传进去的是 6 。自然全部是一个图像。你换个ID就看得到效果了。
        .AddButton "ID_TAB_系统管理_挂号管理_病人挂号", "ID_TAB_系统管理_挂号管理", vbNewLine & "病人挂号", 6
        .AddButton "ID_TAB_系统管理_挂号管理_病人办卡", "ID_TAB_系统管理_挂号管理", vbNewLine & "病人办卡", 6


图标的来源：
        .ImageList = ImageList1

说明在你的窗体上，有一个控件： ImageList1
仔细找找，看看在哪里。

[此贴子已经被作者于2017-8-15 08:41编辑过]

感谢版主指点，图像更换了解了。

调用过程，如何实现呢？请指点，谢谢！

这个控件，有几个事件返回。
你针对这些事件都写条提示看一下，看看返回一些啥内容。

然后根据返回的内容，写一块 select case ，进行调用你的过程吧。
慢慢调试，这个全靠你自己了。
与工具栏的影应过程 写法一样的。