窗口的AfterLoad事件:
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")With Ctype(tpb.BaseControl, C1Command.C1TopicBar) .VisualStyle = C1Command.VisualStyle.WindowsXPEnd With