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
官方網(wǎng)站:http://huaihuaxiangqi.blog.sohu.com/