主题：既然有人希望实现这种页面布局,那么我就把例子放出来吧.(更新关闭标签,自动靠拢)

Dim  ts As new Windows.Forms.ToolStrip

Dim  tsi As new Windows.Forms.ToolStripDropDownButton("页面集合")

Dim tsi1 As new Windows.Forms.ToolStripButton("页面1")

Dim tsi2 As new Windows.Forms.ToolStripButton("页面2")

Dim  tsi3 As new Windows.Forms.ToolStripButton("页面3")

Dim  tsi3 As new Windows.Forms.ToolStripButton("页面4")

AddHandler tsi1.Click, AddressOf Button_Click

AddHandler tsi2 .Click, AddressOf Button_Click

AddHandler tsi3 .Click, AddressOf Button_Click

tsi.DropDownItems.Add(tsi1)

tsi.DropDownItems.Add(tsi2)

tsi.DropDownItems.Add(tsi3)

tsi.DropDownItems.Add(tsi4)

ts.Items.Add(tsi)

e.Form.baseform.Controls.Add(ts)

这样可以增加菜单“页面4” 可是点击“页面4” 以后怎么打开表4呢？