无法修改其颜色的,只能控制样式,如
Dim a As C1Ribbon.C1Ribbon = BaseMainForm.controls("C1Ribbon1")a.VisualStyle = 1 '0-13