试试
Dim fnt As New Font("仿宋",12,FontStyle.Underline)Dim a As C1.Win.C1Ribbon.C1StatusBar = Ctype(BaseMainForm.Controls("C1StatusBar1"),C1.Win.C1Ribbon.C1StatusBar )a.Font = fnt