Dim obj = CType(BaseMainForm,C1Ribbon.C1RibbonForm).RibbonDim btn = obj.tabs("Common").Groups("SortAndFilter").Items("Filter").Items("StringFilter").Items("Contains")btn.ForeColorMenuItem = color.blue