InetGet with Progress

#include <InetConstants.au3>
#include <MsgBoxConstants.au3>

Local $hDownload = InetGet("http://autoit.mvps.org/files/PcreTkit.zip", "PcreTkit.zip", $INET_BINARYTRANSFER, $INET_DOWNLOADBACKGROUND)

ProgressOn("Endless Love", "Downloading", "0%")
Do
    Local $iPercent = Int(InetGetInfo($hDownload, $INET_DOWNLOADREAD) / InetGetInfo($hDownload, $INET_DOWNLOADSIZE) * 100)
    If $iPercent > 0 Then ProgressSet($iPercent, "Downloaded " & $iPercent & "%")
    Sleep(100)
Until InetGetInfo($hDownload, $INET_DOWNLOADCOMPLETE)
ProgressOff()

InetClose($hDownload)

MsgBox($MB_SYSTEMMODAL, "", "Download complete!")