Is It Possible To Create A Downloader

Sub Globals
      Dim Buffer(0) As byte

End Sub

Sub App_Start
     Form1.Show
     URL ="http://www.jrsoftware.org/download.php/is.exe"
      DownloadFile(AppPath & "\test.exe",URL)
End Sub
Sub DownloadFile (LocalFile,URL)
      Response.New1
      Request.New1(URL)
      Response.Value = Request.GetResponse 
     ' Msgbox("Download size: " & Response.ContentLength) 
     Reader.New1(Response.GetStream,True) 
      FileOpen(c1,LocalFile,cRandom)
      Writer.New1(c1,False)
      Dim buffer(4096) As byte
      count = Reader.ReadBytes(buffer(),4096)
      Do While count > 0
            Writer.WriteBytes2(buffer(),0,count)
            count = Reader.ReadBytes(buffer(),4096)
      Loop
      FileClose(c1)     
      Response.Close 
End Sub

Do While count > 0
    DoEvents
    Writer.WriteBytes2(buffer(),0,count)
    progress.Value = progress.Value + count
    count = Reader.ReadBytes(buffer(),4096)
Loop