主题：菜单按钮

我想在配件窗口打开时，现示菜单按钮 配件

求助，谢谢
Dim noc4 As RibbonMenu.Button = RibbonTabs("物料").Groups("信息").Items("配件")
If  ApplicationTitle.Name  = "配件窗口"  Then
    noc4.Visible = True
Else
    noc4.visible = False
End If