Dim tab1 As object = e.Form.Controls("TabControl1").basecontrolForms("窗口1").OpenDim tab2 As object = Forms("窗口1").Controls("TabControl1").basecontroltab1.Tabpages.Add(tab2.TabPages(0))