Dim tab = basemainform.controls("mainpages")tab.tabpages("表A").Text = "123"tab.tabpages("表B").Text = "456"