Code ProtectedSub Timer1_Tick(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Timer1.Tick Dim i AsInteger=0 If Session("t") IsNotNothingThen i = Session("t") EndIf If i <=2Then ‘如果有4个轮换,则要把2改为3 TabContainer1.ActiveTabIndex = i i +=1 Else TabContainer1.ActiveTabIndex =0 i =0 EndIf Session("t") = i End Sub