html - VBScript を使用する HTA がフリーズし、ファイル転送が完了するまで進行状況が更新されない

Question

次のスクリプトは、HTA フォームのボタンで実行されます。ただし、ボタンが押されるたびに、この ["Downloading: " & dlFileName] が表示される代わりに、プログラムがフリーズし、ダウンロードが完了するまでフリーズしたままになります。2 番目のメッセージ [「ダウンロードが完了しました!」] が表示されます。

2 行目と 3 行目の間に MsgBox を入力すると、[OK] ボタンを押す前にテキストが "ダウンロード中..." に変わるのが見えましたが、それでは解決できません...

私はそれを間違って書いていますか、または前のアクションが実行されるまでアクションを停止する (簡単で軽い) 方法はありますか?

どんな情報でも大歓迎です、私はこれでかなり新しいです！

Sub Download_File(dlAddress, dlFileName)
        strStatus.innerHTML="Downloading: " & dlFileName  'This does not show up.
    strHttp.Open "GET", dlAddress, False
    strHttp.Send
    With createobject("Adodb.Stream")
        .type = 1 '//binary
        .open
        .write strHttp.responseBody
        .savetofile txtDLPath.Value & dlFileName, 2 '//overwrite
    End With
        strStatus.innerHTML="Downlad complete!"
End Sub