主题：[原创]仿WIN8主题，求助

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim Name As String = "物料信息"

tab.TabPages.Add(name,name)

Dim pb = tab.BaseControl

Forms(Name).OPEN（-1200,-800）

Forms(Name).BaseForm.TopLevel = False

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

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

PB.TabPages(name).Controls.Clear

PB.TabPages(name).Controls.add(Forms(Name).BaseForm)

tab.SelectedPage = tab.TabPages(name)