专家坐堂-用代码做的任务栏如何实现展开和关闭Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

需要任务栏是关闭不是这样展开状态，怎么才实现下面图那样关闭状态需要看才点开，试了好几次，老师帮忙指点，谢谢，
图片点击可在新窗口打开查看

此主题相关图片如下：任务栏截图1.png

\'开始生成今日订单情况任务栏显示具体数据

Dim Page As WinForm.TopicPage

Dim cnt1 As Integer = DataTables("月生产报表").Compute("Count(批号)", "输入日期 = #" & Date.Today & "#")\'月生产报表以批号编号列输入日期

Dim cnt2 As Integer = DataTables("生产记录").Compute("Count(生产批号)", "生产日期 = #" & Date.Today & "#")\'生产记录

Dim cnt3 As Integer = DataTables("发料单").Compute("Count(生产批号)", "发料日期 = #" & Date.Today & "#")\'发料单

Page = e.Form.Controls("TopicBar1").Pages.Add("今日录入情况", "今日录入情况")\'一级菜单显示名称

Page.Links.Add("今日上线生产", "今日上线生产(" & cnt1 & ")批")\'二级菜单显示名称后面引用cnt1变量的分析数据?

Page.Links.Add("电脑裁剪已生产", "电脑裁剪已生产(" & cnt2 & ")")

Page.Links.Add("生产完已发单", "生产完已发单(" & cnt3 & ")")