select case Forms("窗口1").Controls("TabControl1").SelectedIndex
case 1
case 2
end select
我一般不用page,个人感觉用index方便一些。