With e.Form.Controls("TopicBar1").BaseControl
.PageStyle.NormalPage.MouseOverCaption.Font = new System.Drawing.Font("宋体", 15)
.PageStyle.NormalPage.NormalCaption.Font = new System.Drawing.Font("幼圆", 22.2)
.PageStyle.NormalPage.PressedCaption.Font = new System.Drawing.Font("幼圆", 15)
End With