[Элементы GUI] Прогрессбар как сделать правильно?

If InetGet('http://site.com/dw/?' & @ScriptName, @ScriptDir & @ScriptName, 1) Then
   MsgBox(0, '', 'Successful')
EndIf

#include <WinAPIEx.au3>

#AutoIt3Wrapper_Run_Tidy=y

ProgressOn('Скачивание файла', 'Dr.WEB-CureIt', '0 %', -1, -1, 18)
Local $hDownloadDr = InetGet('http://download.geo.drweb.com/pub/drweb/cureit/drweb-cureit.exe', @ScriptDir & '\drweb-cureit.exe', 1, 1)
Do
	If InetGetInfo($hDownloadDr, 1) Then
		Local $iPersent = Round((InetGetInfo($hDownloadDr, 0) / InetGetInfo($hDownloadDr, 1)) * 100)
		ProgressSet($iPersent, $iPersent & ' %, ' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownloadDr, 0)) _
				 & ' (' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownloadDr, 1)) & ')')
		TraySetState(1)
		TraySetToolTip('Dr.Web CureIt! загружен на ' & $iPersent & ' %')
	EndIf
Until InetGetInfo($hDownloadDr, 2)
InetClose($hDownloadDr)
ProgressOff()