'
            Dim MyHttpWebRequest As HttpWebRequest
            Dim MyHttpWebResponse As HttpWebResponse
            Dim MyBinaryReader As BinaryReader
            Dim MyBinaryWriter As BinaryWriter
            Dim MyFileStream As FileStream
            Dim Buffer() As Byte = New Byte(1024) {}
            Dim BytesRead As Integer
            '
            MyHttpWebRequest = HttpWebRequest.Create(RemoteFile)
            '
            MyHttpWebResponse = MyHttpWebRequest.GetResponse
            ProgressBar1.Maximum = MyHttpWebResponse.ContentLength
            ProgressBar1.Value = 0
            Windows.Forms.Application.DoEvents()
            System.Threading.Thread.Sleep(100)
            MyFileStream = New FileStream(LocalFile, FileMode.Create)
            MyBinaryReader = New BinaryReader( _
              MyHttpWebResponse.GetResponseStream())
            MyBinaryWriter = New BinaryWriter(MyFileStream)
            Do
                BytesRead = MyBinaryReader.Read(Buffer, 0, 1024)
                MyBinaryWriter.Write(Buffer, 0, BytesRead)
                ProgressBar1.Value += BytesRead
                ProgressBar1.Update()
                Windows.Forms.Application.DoEvents()
                '
                DownloadStatus(2)
                '
            Loop Until BytesRead = 0
            MyBinaryReader.Close()
            MyBinaryWriter.Close()
            MyFileStream.Close()