when i try to get some file the inet1 get me only half!
for example: if i have 1mb file it get me only 0.5

why?

The code:


Dim file As String
Dim file2 As String

Private Sub Command1_Click()
file = Inet1.OpenURL("http://www.dr-vb.co.il/files/logo_top1.jpg", icByteArray)
file2 = Inet1.GetChunk(2048, icString)
Do While Len(file2) <> 0
DoEvents
pb1.Value = pb1.Value + 1
file = file & file2
file2 = Inet.GetChunk(2048, icString)
DoEvents
Loop


Open "d:\desk5.jpg" For Binary Access Write As #1
Put #1, , file

End Sub
my english isn't very good..