Dim o As new C1.Win.C1Command.C1OutBar
o.name="o"
o.dock=5 '锚定
o.VisualStyle=3 '主题
o.pagetitleheight=22 '页面高度
Dim p1 As new C1.Win.C1Command.C1OutPage '新建页面
p1.name="aaa"
p1.text="bbb"
Dim p2 = e.form.controls("panel2").basecontrol
p1.controls.add(p2)
p2.dock = 5
o.Pages.add(p1)
p1 = new C1.Win.C1Command.C1OutPage '新建页面
p1.name="ccc"
p1.text="ddd"
Dim p3 = e.form.controls("panel3").basecontrol
p1.controls.add(p3)
p3.dock = 5
o.Pages.add(p1)
e.Form.Controls("Panel1").basecontrol.controls.add(o)