Dim bReader As BinaryReader
        Dim bWriter As BinaryWriter
        Dim stream As FileStream
        Dim buffer() As Byte = New Byte(1024) {}
        Dim bytesRead As Integer
 
        ' Fortschritt zunächst auf 0% setzen
        Me.ProgressBar1.Value = 0
        Dim ourUri As New Uri(sURL)
 
        Try
            ' Datei-Download via HTTP "anfordern"
            Dim webreq As WebRequest = WebRequest.Create(sURL)
            Dim webresp As WebResponse = webreq.GetResponse()
 
            ' Download-Größe
            Me.ProgressBar1.Maximum = webresp.ContentLength '600000
 
            ' lokale Datei öffnen
            stream = New FileStream(strFolder & "\" & strFile, FileMode.Create)
            bReader = New BinaryReader(webresp.GetResponseStream)
            bWriter = New BinaryWriter(stream)
 
            ' Datei blockweise downloaden und lokal speichern
            Do
                bytesRead = bReader.Read(buffer, 0, 1024)
                bWriter.Write(buffer, 0, bytesRead)
                Label3.Text = ProgressBar1.Value & " von " & _
                  ProgressBar1.Maximum & " Bytes fertig!"
                Label3.Refresh()
                Me.ProgressBar1.Value = Me.ProgressBar1.Value + CInt(bytesRead)
                ProgressBar1.Invalidate()
            Loop Until bytesRead = 0

' Download-Größe
  Me.ProgressBar1.Maximum = webresp.ContentLength