主题：如何控制任务栏（topicbar）只打开一个页面

timertick事件

e.form.TimerEnabled = False
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> vars("curr").name Then
        page.Collapsed = True
    End If
Next

TopicPageExpanded 事件

vars("curr") = e.Page
e.form.TimerInterval = 500
e.Form.TimerEnabled = True