有点难度：自定义二级菜单的提示信息

众所周知，Excel自定义工个栏，用这句代码可以做提示信息作用。
就是鼠标放在按钮上，有提示的文字出现。 如图效果：

但现在有个疑问，这句代码只能在一级菜单中使用，在二级菜单下无效？郁闷中~~~
敬请各位大师指点，谢谢~
'

附上一段示例代码：
        Set iBar = Application.CommandBars.Add(cjname, msoBarTop, , True)
'-----------------------------------------------第一个二级菜单------------------------------------------------
        Set iBtn = iBar.Controls.Add(Type:=msoControlPopup)  '系统  '这里是一级
        With iBtn
            .Caption = " 【系统】"  '这个是名称（显示用的）一级菜单的
            .TooltipText = "查詢用户和权限" '鼠标移过提示
            With .Controls.Add(Type:=msoControlButton, ID:=2950)  '这里是二级第一个项目
                .FaceId = 69    '指定显示的图标
                .TooltipText = "查詢當前系統登錄用戶名" '鼠标移过提示
                .Style = msoButtonIconAndCaption    '同时显示图标和标题
                .BeginGroup = True
                .OnAction = "username"      '指定要执行的宏
                .Caption = " 【用戶】"  '这个是名称（显示用的）二级菜单的
                .Tag = "查詢"
                .Enabled = True
                .Visible = True
            End With
            With .Controls.Add(Type:=msoControlButton, ID:=2950)  '这里是二级第二个项目
                .FaceId = 2103      '指定显示的图标
                .BeginGroup = True
                .Caption = " 【權限】"  '这个是名称（显示用的）二级菜单的
                .Tag = "權限"
                .OnAction = "uusers"    '指定要执行的宏
                .Enabled = True
                .Style = msoButtonIconAndCaption
                .TooltipText = "修改簽名權限【需授權用戶使用】"
                .Visible = True
            End With
        End With

'

[ 本帖最后由 opel-wong 于 2011-8-3 23:18 编辑 ]