Private Sub Start()
Dim myURI As New Uri(txtSrc.Text)
        req = WebRequest.Create(myURI)
        resp = req.GetResponse
        MyLen = resp.ContentLength
        lblSize.Text = "Dateigröße: " & MyLen & " Bytes"
        dlstream = resp.GetResponseStream
        sStream = New FileStream(dlgSave.FileName, FileMode.Create)
        dlThread = New Thread(AddressOf dlThreadSub)
        dlThread.Start()
End Sub
 
Private Sub dlThreadSub
 Dim myBytes1(1024) As Byte
        Dim Progress As Integer
        Dim BytRead As Long
        Dim nRead As Integer
        Do Until MyLen = BytRead
            nRead = dlstream.Read(myBytes1, 0, myBytes1.Length)
            sStream.Write(myBytes1, 0, myBytes1.Length)
            BytRead = BytRead + nRead
            txtpos.Text = BytRead ' Textbox, soll Byteposition anzeigen
            Progress = CInt((BytRead / MyLen) * 100)
            progDL.Value = Progress ' Progress-Bar
            lblProz.Text = Progress & "%"
        Loop
        dlstream.Close()
        sStream.Close()
        resp.Close()
End Sub