Progressbar apperars so much late in visual basic Activex...!

[mobildev]

Hi,
I made an activex (with visual basic 6.0), that downloads a file to client..I converted cab file with package&deployment wizard, and signed it..
There is an progressbar on the usercontrol(activex control form)..
and set the progressbar value appropriate value while downloading..
I use these lines:

Do
    DoEvents
    bData = InetDwn.GetChunk(CHUNK, icByteArray)
    DoEvents
    If i Mod (downloading_file_all_size / 10) = 0 Then
        ' I used this line to increase progressbar value every 10 percent
        'downloaded
        DoEvents
        DoEvents
        ProgressBar1.Value = ProgressBar1.Value + 1
        DoEvents
        DoEvents
        i = 0
        DoEvents
        DoEvents
    End If
    DoEvents
    DoEvents
    Put #intfile, , bData
    i = i + 1
Loop While UBound(bData, 1) > 0

but progressbar is appeared after all downloading and show %100....
(I wrote "DoEvents" much, to progressbar works properly, But this does not help..)
How can I solve this problem..?

Please HELP....