主题：无法用遍历组件的方法来设置状态按钮的状态

For Each itm As object In RibbonTabs("订单").Groups("筛选").Items
    msgbox(itm.Name & " " & itm.Gettype.name)
    If Typeof itm Is RibbonMenu.ToggleButton Then
        itm.Pressed = False
    End If
Next