主题：任务栏 页面展开时语句

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True
    End If
    If e.page.name = "工作流"  Then
        MessageBox.Show(123)
    End If
Next

出现错误，不知道错在什么地方，请老师指导！谢过！