主题：求助tabcontrol或容器加入窗口

参考代码

 

Dim PB As WinForm.Panel = e.Form.Controls("Panel2")

Dim Name As String = "工具栏"

Forms(Name).OPEN(-1000,-1500)

Forms(Name).BaseForm.TopLevel = False

Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms(Name).BaseForm)