Public a As Long, NoTime As Boolean
Private Sub Form_Load()
Command1.Caption= “開始” Command2.Caption = “暫停” Command3.Caption = “停止”
NoTime = False
a = 0
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
Private Sub Command1_Click() Timer1.Enabled = True
End Sub ?
Private Sub Command2_Click()
Select Case Command2.Caption
Case “暫停”
Timer1.Enabled = False Command2.Caption = “繼續”
Case “繼續”
Timer1.Enabled = True Command2.Caption = “暫停”
End Select
End Sub
Private Sub Command3_Click()
Load Me
End Sub
Private Sub Timer1_Timer()
Select Case a
Case 0 To 299
If NoTime = False Then Label1.ForeColor = vbBlack
If NoTime <> True Then
a = a + 1
Label1.Caption = “倒計時還有” & 300 - a & “秒”
Else ?
a = a - 1
Label1.Caption = “正計時” & 300 - a & “秒”
End If
Case 300
NoTime = True
Label1.ForeColor = vbRed
a = a - 1
Label1.Caption = “正計時” & 300 - a & “秒”
End Select
End Sub ?