主题：现在的页面合集的标签可以改标签背景色了吗？

e.Form.Close()

Dim tab As WinForm.TabControl = Forms("Tab所在窗口").Controls("TabControl1")

Dim name = tab.SelectedPage.Name

tab.TabPages.Delete(name)

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

Dim Name As String = "部门信息"

For Each p As WinForm.TabPage In tab.TabPages

    If p.Name = Name Then Return

Next

tab.TabPages.Add(name,name)

Dim pb = tab.BaseControl

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.TabPages(name).Controls.Clear

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

tab.SelectedPage = tab.TabPages(name)