help in Inet controls

[mohamed82]

i have an Runtime error for occuring at the time of downloading from the site
the error will cause " Unable to complete your request" when i was running the application.her e mainly downloading files more then 500MB from the site..
This my coding


function start here--------------*-----------------
Dim Size As Long, Remaining As Long, FFile As Integer, Chunk() As Byte
Dim loginString As String
' Dim Max As Long
Dim Max As Double
m_lngDocSize = 0

Inet1.Execute "http://www.eximalert.c om/Test/" & File, "GET"


Do While Inet1.StillExec uting
DoEvents
Loop
Size = CLng(Inet1.GetH eader("Content-Length"))
Remaining = Size
FFile = FreeFile
Open App.Path & "\" & File For Binary Access Write As #FFile
Do Until Remaining = 0
Form1.Height = 2955
ProgressBar1.Vi sible = True
If Remaining > 1024 Then
Chunk = Inet1.GetChunk( 1024, icByteArray)
Remaining = Remaining - 1024
If ProgressBar1.Va lue < 100 Then
ProgressBar1.Va lue = ProgressBar1.Va lue + 1
End If
Else
Chunk = Inet1.GetChunk( Remaining, icByteArray)
Remaining = 0
End If

Put #FFile, , Chunk

Loop

Close #FFile
ProgressBar1.Va lue = ProgressBar1.Ma x

If unzipAlert(File ) = True Then
Updated = True
End If

End Function