Timer控件,Interval=500
Me.Caption = "无忧辩论赛计时器
Private Sub Timer1_Timer()
Select Case Me.Caption
Case ""
Me.Caption = "无"
Case "无"
Me.Caption = "无忧"
Case "无忧"
Me.Caption = "无忧辩"
Case "无忧辩"
Me.Caption = "无忧辩论"
Case "无忧辩论"
Me.Caption = "无忧辩论赛"
Case "无忧辩论赛"
Me.Caption = "无忧辩论赛计"
Case "无忧辩论赛计"
Me.Caption = "无忧辩论赛计时"
Case "无忧辩论赛计时"
Me.Caption = "无忧辩论赛计时器"
Case "无忧辩论赛计时器"
Me.Caption = ""
End Select
End Sub