参考例子
http://www.foxtable.com/help/topics/2133.htm
afterLoad事件
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")For Each page As WinForm.TopicPage In tpb.Pages page.Collapsed = TrueNext