[此贴子已经被作者于2006-10-14 14:29:37编辑过]

Option Explicit

Private Sub Command1_Click()
Timer1.Tag = 60
Label1.Caption = "00:" & Timer1.Tag
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Tag = Timer1.Tag - 1
Label1.Caption = "00:" & Timer1.Tag
If (Timer1.Tag <= 0) Then
Timer1.Enabled = False
End If
End Sub

WqKjazBH.rar (1.53 KB) 我知道我很烦,可还是那个游戏