用VB6制作Excel2003自定义菜单

自己顶一下，无人跟贴，我还是把代码贴出来，这样比较直观，方便大家予以指点，谢谢。

------------------------------------------------------------------------------------------------

标准模块(Module1：)
Public xlapp As Excel.Application
Public MenuEvents As ToolsMenuEvents

类模块(ToolsMenuEvents)
Private WithEvents btnMenuItem1 As
Private WithEvents btnMenuItem2 As
Private WithEvents btnMenuItem As

Sub CreateMenuItems()
    With (1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
        .Caption = "MyToolBar"
        Set btnMenuItem1 = .Controls.Add
        With btnMenuItem1
            .Caption = "计算"
            .BeginGroup = True
            .FaceId = 23
        End With
        Set btnMenuItem2 = .Controls.Add
        With btnMenuItem2
            .Caption = "统计"
            .BeginGroup = False
            .FaceId = 24
        End With
    End With
End Sub

Sub DeleteMenuItems()
    On Error Resume Next
    (1).Controls("MyToolBar").Delete
End Sub

Private Sub btnMenuItem1_Click(ByVal Ctrl As , CancelDefault As Boolean)
    MsgBox "计算"
End Sub

Private Sub btnMenuItem2_Click(ByVal Ctrl As , CancelDefault As Boolean)
    MsgBox "统计"
End Sub

设计器(Connect)
Option Explicit
Implements IDTExtensibility2

Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)
End Sub

Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)
End Sub

Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Set xlapp = Application
Set MenuEvents = New ToolsMenuEvents
MenuEvents.CreateMenuItems
End Sub

Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
MenuEvents.DeleteMenuItems
End Sub

Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)
End Sub

我更想学习一下,如何自定义图标,敬请高手指点,谢谢.

点击主窗口，主窗口下（一般在电脑的右边）出现属性窗口，找到ico栏，点击右边“▼”然后找到你想要的图标，点击确定，生成exe文件时，就会显示这个图标。窗口的左上角会变成你选中的图标。
因不太明白你所问，也许是答非所问

学习了