Inet FTP transfer progress

[fischadler]

I am using the Inet control to upload files to a web server. Below is the code I am using:

Inet1.AccessType = icUseDefault
Inet1.URL = strFTP
Inet1.UserName = strUserName
Inet1.Password = strPassword
Inet1.RequestTimeout = 20
Inet1.Execute , "SEND """ & strFilePath & """ """ & strFileName & """"
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute , "CLOSE"


As far as uploads are concerned, it works fine. However I would like to make a progress bar to show the status of the transfer. Is there a way to do that?

Thanks