求vb倒计时代码

来源：百度知道 编辑：UC知道 时间：2024/05/13 04:40:13
我想要一个代码,大概思路是:倒计时10秒,10秒后运行某exe文件,最好倒计时能看见,看不见也无所谓,就这样.

哪位大大能帮帮,小弟谢谢先!!!
倒计时结束时,vb的窗口最好能关闭

Private Sub form_load()
Label1.Caption = 10
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim b
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
b = Shell("exe文件路径")
unload me
End If
End Sub
倒计时是用label控件显示的。