主题：[求助]如何用代码使TabControl中被选中的子页显示在屏幕中间。

前提：

有一个窗口，叫“录入主窗口”，有一个TabControl叫“TopLevelGroup”,  它有很多子页，如“1”，“2”....“n”

目标：

用代码选中子页后，不需要点击TabControl右上角的三角号，就能让选中的子页移动到能看见的屏幕上来，而不是继续隐藏在一大堆后面的子页中.

目前完工的程度为(第二句里的Move仅表达意思，不能运行的）：

Forms("录入主窗口").Controls("TopLevelGroup").SelectedPage = Forms("录入主窗口").Controls("TopLevelGroup").TabPages("25")

Forms("录入主窗口").Controls("TopLevelGroup").SelectedPage.Move

求助：

如何改第二句来实现目标？

 做不到，你可以通过隐藏其它页签

Forms("录入主窗口").Controls("TopLevelGroup").TabPages("23").Visible = False

Forms("录入主窗口").Controls("TopLevelGroup").TabPages("24").Visible = False

Forms("录入主窗口").Controls("TopLevelGroup").SelectedPage = Forms("录入主窗口").Controls("TopLevelGroup").TabPages("25")

能不能让TabControl1以多行标签显示？

就象以下代码表示的（不能运行，仅用来表示意思）

Forms("窗体1").Controls("TabControl1").Multipage = True

求助：

如何用代码让控件多行标签显示？