窗口afterload事件,加入代码
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
With Ctype(tpb.BaseControl, C1Command.C1TopicBar)
'.VisualStyle = C1Command.VisualStyle.WindowsXP
'.VisualStyle = C1Command.VisualStyle.Office2010Blue
.VisualStyle = C1Command.VisualStyle.Office2007Silver
.Padding = New Windows.Forms.Padding(4)
End With