求助：如何注册Application.CommandBars(“树形菜单”)单击

在VB6.0中，使用VSFlexGrid编写一个入库出库程序，并处理"树形菜单"的单击事件时，应注意以下几点：

1. 确保"树形菜单"的名称正确。根据提供的问题描述，可以尝试使用"("树形菜单")"来获取"树形菜单"的引用。

```vb
("树形菜单").Enabled = True
```

2. 确保引用的类型库正确。确保在VB6.0中引用了用于VSFlexGrid的类型库，并在代码中声明相应的对象引用。

```vb
Dim flexGrid As VSFlexGridLib.VSFlexGrid
Set flexGrid = VSFlexGrid1
```

3. 确保在使用"树形菜单"前，已正确初始化VSFlexGrid控件。确保对控件进行了适当的设置和配置，并确保已加载相应的数据。

```vb
flexGrid.Rows = 10
flexGrid.Cols = 5
' 加载数据到VSFlexGrid
' ...
```

4. 确保正确处理"树形菜单"的单击事件。使用"树形菜单"的Click事件来注册单击事件的处理程序。

```vb
Sub TreeMenu_Click()
    ' 单击处理程序的代码
   
    ' 根据需要处理单击事件
End Sub
```

如果仍然遇到"树形菜单"单击不能注册的问题，可能需要查看其他原因，如版本兼容性或安装配置问题。

我的问题应该在答案“4”中，我套用的Excel工作簿的代码
With .Controls.Add(Type:=msoControlButton)
    ..OnAction="'写入活动单元格 """.... """'"
end with
sub 写入活动单元格（s$）
    ....
end sub
然后，菜单能出来，点击后就提示宏不可用

斑竹，我说的“树形菜单”可能表述不当，实际上是三级箭头弹出菜单。控件引用的是“Microsoft Forms 2.0 Object Library”。
请问：如果我希望得到上述控件的弹出展开效果。
1、不换控件，怎么达到点击响应。
2、若确实要换，换啥引用合适。
再麻烦一下，谢谢！