エラーメッセージが最上位レイヤーに表示されるようになりました

エラーメッセージが最上位レイヤーに表示されるようになりました

エラー メッセージがポップアップ表示され、その後自動的に消えるプログラムを作成しました。正常に動作するのですが、エラー メッセージ (最初のメッセージ以降) は通常、現在開いているウィンドウの下に表示されるため、見えません。これを表示させるにはどうしたらよいでしょうか。よろしくお願いします。

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

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

関連情報