在vb6中动态加载自定义功能区的问题

qlh1978

<?xml version="1.0" encoding="gbk" ?>
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab id="tabB" label="测试选项卡">
           <group id="group1" label="组1" getVisible="group1_getVisible">
          '………………
          </group>

           <group id="group2" label="组2" getVisible="group2_getVisible">

          '………………

          </group>

         '…………………………一共有多个组…………省略…………

      </tab>
   </tabs>
  </ribbon>
</customUI>

'按条件显示 组1
Sub group1_getVisible(control As IRibbonControl, ByRef returnedVal)
’1、我先按这个写法，在vba中没有问题，根据条件不同来显示/隐藏该组，但是在 vb6 中行不通
          if  …………then
               returnedVal = True
          else
               returnedVal = false
           end if

’2、后来改为下面的写法，测试强制显示，也是不行。不显示该组
但其它没有 getVisible 方法的组都可以正常显示


               returnedVal = true


3、所以预计程序没有进入到这里，加入一个公共变量来测试，发现真的没有进入这里。
            sr="过来了"
End Sub

'按条件显示 组2

Sub group2_getVisible(control As IRibbonControl, ByRef returnedVal)

  '问题同上   Sub group1_getVisible

End Sub




所以，现在问题是如何调用这个 （注：其它没有设置的组是可以显示的，而且vba中是可以触发的）
<group id="group1" label="组1"

getVisible="group1_getVisible"

>  中的"group1_getVisible"过程
特此求问  如何处理

qlh1978

啰嗦了半天，问题是  getVisible  未能触发，如何触发它。