錯誤訊息現在顯示為頂層

錯誤訊息現在顯示為頂層

我製作了一個程序,應該不斷彈出錯誤訊息,然後自行消失,它可以工作,但錯誤訊息(在第一個錯誤訊息之後)通常位於當前打開的視窗下方,因此看不到它。我怎樣才能讓這個顯示出來?謝謝

Const TIMEOUT = 5
Set objShell = WScript.CreateObject("WScript.Shell")

Do Until True = False
    WScript.Sleep 3000
    objShell.Popup "Error1", TIMEOUT
Loop

相關內容