① 如何用VB程序做計時器
計時器是在每一定時間間隔就觸發一次事件，這個時間可在計時器的interval屬性中設定，默認值為0,表示計時器不工作。
如果觸發事件後不關閉計時器(設置enabled屬性為false,功能與interval=0時一樣),它就每隔一定時間不斷觸發事件，直到程序結束或 interval屬性值設為0 或 enabled屬性設為0
倒計時5秒結束後自動關閉form2：
**Timer是不準確，但精度要求不高時還是可以的。
1.新建標准EXE工程，在Form1添加一計時器Timer1,一文本框Text1,再加一窗體：form2
2.寫入下面代碼（有兩方案)，但以下還是保留
[方案一:最簡單的，看不到倒數過程]
private sub Form_load()
form2.show '運行窗體2
timer1.interval=5*1000 '5000毫秒，即5秒
end sub
Private Sub Timer1_Timer()
timer1.enabled=false '關閉計時器
unload form2 '關閉form2
End Sub
[方案二:看到倒數過程]
private sub Form_load()
form2.show '運行窗體2
text1.text="5"
timer1.interval=1*1000 '1000毫秒，即1秒
end sub
Private Sub Timer1_Timer()
Rem text1的值減1
'{
Dim a as integer
a=val(text1.text) 'text1.text字串轉整數
a=a-1
text1.text=str(a) '整數轉字串放回text1.text
'}
Rem 檢查text1的值
'/*
if a<=0 then
unload form2 '關閉form2
timer1.enabled=false '關閉計時器
'*/
End Sub