主题：帮忙改一下主菜单事件代码！

切换 按钮移到了菜单配置栏  此段代码要改一下，谢谢！

If CurrentTable Is Nothing Then
    Return
End If

'此段代码用于更新日常工作区"切换"按钮的状态,如果按钮已经改名或者移到别的功能区,请对应地修改此段代码
'如果删除了此按钮,应该删除此段代码
Static tb As RibbonMenu.ToggleButton
If tb Is Nothing Then
    tb = CType(RibbonTabs("Common").Groups("SortAndFilter").Items("Toggle"), RibbonMenu.ToggleButton)
End If
If (CurrentTable.Filter > "" AndAlso CurrentTable.ApplyFilter = True) OrElse (CurrentTable.Sort > "" AndAlso CurrentTable.ApplySort = True) Then
    If tb.Pressed = False Then
        tb.Pressed = True
    End If
Else
    If tb.Pressed = True Then
        tb.Pressed = False
    End If
End If

将：

RibbonTabs("Common").Groups("SortAndFilter").

改为：

ConfigBar.