主题：求助有关TopicLinkClick的问题

第一步我先在窗口1中AfterLoad事件写入如下代码

Dim Page As WinForm.TopicPage
Page = Forms("窗口1").Controls("TopicBar1").Pages.Add("Project","所有分类")
For Each d As DataRow In DataTables("类别表").DataRows
    Page.Links.Add("Open",d("类别名称"))
Next

第二步我在TopicLinkClick事件中写入以下代码

Select Case e.Link.Name
    Case "液化气"
        '在此加入相应的代码
        MessageBox.Show("ok")
End Select

为什么点击下拉的任务没有反应？？？