各位大哥，我刚开始学习VB。想做一个倒计时器，用计时器怎么写？

望指教

首先，谢谢楼上的大哥。这个原理我是知道的。首先定义一个变量，然后把这个变量放到timer里每一秒减一就可以了。可我不知道该怎么写代码，一写就出错。
麻烦你演示一下，比如倒计时10秒。
再次感谢。。。。

大家看看这样是不是太繁了？

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Text1.Text = 10
Command1.Caption = "倒计时开始"
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Text1.Text = 0 Then
Text1.Text = 10
Me.Caption = "时间到！"
Timer1.Enabled = False
Else
Text1.Text = Val(Text1.Text) - 1
End If
End Sub

终于研究清了，谢谢大家呀。

可是4楼那位大哥写的msgbox会在被点确定后计时器还会计时不会停的。

尽管如此，却解开了我的困惑。非常感谢呀~~~

呵呵~~

下面开始做计算器，最简单的。

要是有问题还请大家多多指教呀。

恩,不错不错.改了以后效果就对了.