If Forms("窗口名").Opened then
Dim tab As WinForm.TabControl = Forms("窗口名").Controls("TabControl1") tab.SelectedIndex = 1
End If
加好友 
发短信
Post By：2011/11/2 17:37:00 [显示全部帖子]
