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