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

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

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

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
Next
If  e.Page.Name = "工作流"   Then
Dim link As WinForm.TopicLink = tpb.Pages("工作流").Links("我的审批")
link.Text = link.text & "123"
MessageBox.Show(222)
End If

想在页面展开时动态修改LINK.TEXT，结果进不了 IF句

老师你好！

对不起，我把页面名字写成页面标题了，修改后，已经正常了，太谢谢老师了。

If  e.Page.Name = "workflow"   Then

Dim link As WinForm.TopicLink = tpb.Pages("workflow").Links("我的审批")

 end if