Uploading bar (General questions)

I try to use your HTML example with a 3Gb file in order to prove that we can use this activeX in our project. It works correctly but the progress bar doesn't work properly(), and that's important for us because we show it to our clients.

Your code:
...
Sub wodFtpDLX1_Progress(Position, Total)
ProgressBar1.value = Position <-- it doesn't work when you try
End Sub to dowload something bigger

Can you help me please?
Regards

Jlp