参考代码
Dim tab = basemainform.controls("mainpages")tab.TabPages.Insert(tab.tabpages.count-1,tab.Tabpages("表A")) '移动到第一个位置 MainTable = Tables("表a")