Sub time()
    Call Application.SetTimer(0,2*1000)      '設置一個0號計時器，間隔2秒執行一次
    Call Application.Settimer(9,5*1000)      '設置一個9號計時器，間隔5秒執行一次
End Sub
 
'下面的過程是計時器循環體,我讓計時器顯示每次觸發的時間，你看看是不是間隔設定的秒數就觸發。
Sub Application_Timer(ID)
    If ID=0 then
        Application.msgout   ",0號計時器觸發了"
    end if
    If ID=9 then
        Application.msgout   ",9號計時器觸發了"
    end if
End Sub

按說應該輸出消息，但實際消息框無反應。我嘗試著用論壇里所說的刪除注冊表中的weistock，也沒有效果。