切换代码,参考
Dim tab As object = Forms("窗口3").panel.parent.parenttab.SelectedTab = tab.Tabpages(1)
全局快捷键,参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52509&replyID=&skin=1