主题：afterload的代码

 不好意思，有一段代码看不懂了，在导航窗口的afterload事件中，请老师解释一下，特别是basecontrol 和t.Animation = 1；和整段代码的作用，惭愧！
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim t = tpb.basecontrol
t.Animation = 1
For Each page As WinForm.TopicPage In tpb.Pages
    page.Collapsed = True
Next