红色代码获取所有属性
Dim fnt As New Font("微软雅黑",9)
Dim SB As C1.Win.C1Ribbon.C1StatusBar = BaseMainform.Controls("C1StatusBar1")
SB.LeftPaneItems("Message1").Font=fnt
For Each o As object In SB.LeftPaneItems("Message1").Gettype.getproperties
output.show(o.name)
Next
SB.LeftPaneItems("Message1").ForeColorOuter = Color.Red