I am looking at my HTA (see signature) which does not have a working progress bar... BUT it does go away after its work is done. I'm no master of VBScript, but I notice a difference between it and yours. Your progress routine doesn't have any exit command. For example: Sub objWIM_Progress(Percent,TimeRemaining) On Error Resume Next objShell.Popup Percent, 1, "Title", -1 If Percent = 100 Then progress.innerHTML = "<table border='0'><tr><td>Percents completed: </td><td>100 % </tr><tr><td>Time remaining: </td><td>0 min 0 sec</td></tr></table>" Exit Sub Else Call ProgressHelper(Percent,TimeRemaining) End If See that Exit Sub part in there.