如何添加自己按钮在vb6编制器的菜单栏

如何添加自己按钮在vb6编制器的菜单栏

小弟思考了很久，思路是怎样的，大概框架怎样实现，具体代码怎样写，还请有关高手多多指教。

如何添加自己按钮在vb6编制器的菜单栏就像（就像vb梦工厂的一键添加所有的api，vbAdvance，VbInLineASM，vbfriend2006）类似这样的东西。

如何制作自己的按钮在vb6编制器的菜单栏，当点击时会弹出一个自己的窗体绑定在工具栏或，在结束vb6编制器时随着保存设置关闭。

窗内有多选择选项按钮，设置，添加，修改，删除，等等，窗内的文本框代码（可以自定义）。

1.窗内有常用代码（要可以设置修改或添加文本框内的代码）。

2.点击后自动添加代码到光标处（代码来自读取指定文件夹文本，每个标题代表一个文本）。

3.窗内有自动批量添加模块或类模块等等。

4.可以遍历文件夹寻找提配文件和模块或类模块。

5.如果有添加到模块或类模块，在窗体文本框显示函数名可以随时点击添加到光标处。

6.如果有引用插件（dll），在窗体文本框显示函数名可以随时点击添加到光标处。

7.一些实用程序等等。
--------------------编程问答--------------------   Dim mcbMenuCommandBar          As Office.CommandBarControl
  Public WithEvents EvAutMenu    As CommandBarEvents            '菜单事件对象

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set mcbMenuCommandBar = AddToAddInCommandBar("My AddIn")
    Set MEvAutMenu = VBInstance.Events.CommandBarEvents(mcbMenuCommandBar)
End Sub

Private Sub MEvAutMenu_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    '-----菜单事件----------
End Sub
--------------------编程问答--------------------

  Dim mcbMenuCommandBar          As Office.CommandBarControl
  Public WithEvents EvAutMenu    As CommandBarEvents            '菜单事件对象

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set mcbMenuCommandBar = AddToAddInCommandBar("My AddIn")
    Set MEvAutMenu = VBInstance.Events.CommandBarEvents(mcbMenuCommandBar)
End Sub

Private Sub MEvAutMenu_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    '-----菜单事件----------
End Sub

补充：VB ,  API