可以,参考
Dim r As object = BaseMainForm.controls("C1Ribbon1")Dim btn As object = r.Tabs("Other").Groups("Execute").Items("SQLExecute")btn.Font = New Font("宋体", 11)btn.ForeColorInner = Color.Red