---------以下是程式-------------
i = Val(Text1.Text)
j = Val(Text2.Text)
k = Val(Text3.Text)
If i = 0 And j = 0 And k = 0 Then
MsgBox "時間到", , "提醒"
Timer1.Enabled = False
ElseIf i <> 0 Then
i = i - 1
j = 59
k = 59
End If
If j <> 0 Then
j = j - 1
k = 59
End If
If k <> 0 Then
k = k - 1
End If