Help me, progress bar full without close window

#NoTrayIcon

Global Const $gui_event_close = -3

$main = GUICreate("UPX In Progress Bar", 237, 129, 372, 328)
GUISetBkColor(16777215)

$input1 = GUICtrlCreateInput("", 24, 24, 153, 21)
$button1 = GUICtrlCreateButton(".......", 184, 24, 35, 25)
$button2 = GUICtrlCreateButton("Run", 80, 56, 59, 25)
$progress1 = GUICtrlCreateProgress(16, 96, 206, 17)
GUISetState(@SW_SHOW)

While 1
    $nmsg = GUIGetMsg()
    Switch $nmsg
        Case $gui_event_close
            Exit

        Case $button1
            $fo = FileOpenDialog("File", "", "(*.dll;*.exe)")
            GUICtrlSetData($input1, $fo)
            FileChangeDir(@ScriptDir)

        Case $button2
            If GUICtrlRead($input1) Then
                $r = Run(@ScriptDir & "\upx.exe -9 -f -k" & " " & GUICtrlRead($input1))
                GUICtrlSetData($progress1, ($r))
            Else
            EndIf

    EndSwitch
WEnd