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

你这样写太累了:

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  tsib As new Windows.Forms.ToolStripDropDownButton("商品管理")
Dim tsib1 As new Windows.Forms.ToolStripButton("销售")
Dim tsib2 As new Windows.Forms.ToolStripButton("入库")
Dim tsib3 As new Windows.Forms.ToolStripButton("退货")

tsi.DropDownItems.Add(tsi1)
tsi.DropDownItems.Add(tsi2)
tsi.DropDownItems.Add(tsi3)
tsib.DropDownItems.Add(tsib1)
tsib.DropDownItems.Add(tsib2)
tsib.DropDownItems.Add(tsib3)
ts.Items.Add(tsi)
ts.Items.Add(tsib)
e.Form.baseform.Controls.Add(ts)