AfterLoad事件
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")For Each page As WinForm.TopicPage In tpb.Pages page.Collapsed = TrueNext