VB中怎样倒计时？

Timer控件的最长支持时间是65535毫秒即1.09分钟。

在窗体添加Timer控件，下面是代码：

Dim S As Integer 'S必须是过程级变量

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000 '定义检测间隔为1秒
S = 100 '这里设置了100秒的倒计时时间，你可以修改需要的时间，单位是秒
End Sub

Private Sub Timer1_Timer()
S = S - 1
If S = 0 Then
'倒计时时间到，需要执行语句
Timer1.Enabled = False
End If
End Sub

如果你只是为了实现达到某个时间后执行语句
你可以用time取得系统时间
然后用if语句来达到某个时间后执行语句

如果你不怕占用资源，就用timer控件．

循环中加个sleep 1000(时间间隔) 然后变量(先自定义初值)减一)后面加判断语句，及跳出语句，循环外执行