Progress bar and Internet Transfer control

[sborny]

Hi,

I have an app then downloads a file from the internet on a command button click.

Is it possible to show a progress bar while the file is being downloaded.

Here is the code I am using to download the file.
<code>
Private Sub Command1_Click()
Dim b() As Byte
Dim ff As Integer

b() = Inet1.OpenURL("

http://www.eu4ic-it.co.uk/test/csv/app.csv",

icByteArray)

ff = FreeFile

Open "c:\temp\app.csv" For Binary Access Write As #ff
Put #ff, , b()
Close #ff

End Sub
</code>

I hope someone can help.

Thanks

Symon.

Everything has an answer, it's just knowing the right question to ask. !!!!