第1个回答 2013-06-30
Public Class Form1
Dim tCount As Integer '用来计数
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tCount = 10
Timer1.Interval = 1000 '每秒执行一次
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
tCount -= 1
If tCount = 0 Then
MsgBox("时间到")
Timer1.Enabled = False
End If
End Sub
End Class本回答被网友采纳