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

前提：

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

目标：

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

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

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

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

求助：

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