請大大幫我看一下這個VB的問題

Question

我現在有一ㄍ無介面ㄉ程式(sub main 啟動)
也就是 無 FORM ㄉ程式
我想請教一下
Sun Main ()
settimer

end sub
如果我要他執行完settimer後就停住，就時不要讓他ㄑend sub該怎半
因為程式一結束 timer就失效ㄌ
所以有啥辦法讓sub main 不結束

W.J.S ㄉ辦法我也用過
只是CPU會一直滿格
有更好ㄉ辦好ㄇ

我就是不想用表單阿

Answer 1

Sun Main ()    Do      SetTimer      If .... Then End '讓程式結束的條件(沒設定的話程式無法停止)      Doevents    Loopend sub

Answer 2

很多方法

一個是在程式結束前使用MsgBox ""
不過MsgBox是Modal的

二是建立一個表單(假設叫Form1)然後在程式一開始打：
Load Form1 '載入表單Form1
一般來講，還有表單在記憶體中時，它不會關掉。如果要結束，只要把表單關掉就好了。因此，設計程式時也要注意，若是有表單隱藏著卻沒有載出，它會一直存在，不會自動銷毀，程式也會一直執行。