an der Stelle:
 
<pre><code> Dim bytesarr(102400) As Byte

Imports System.Net
 
Public Class clsDownload
 
    Public Event start_dl(ByVal totalfilelen As Integer, ByVal resumepos As _
      Integer, ByVal timestart As Integer)
    Public Event progress(ByVal actual_pos As Integer)
    Public Event end_dl(ByVal actual_pos As Integer)
 
    Dim b As Boolean
    Dim bresume As Boolean
    Dim readstr As IO.Stream
    Dim lenfile As Long
    Dim bytesarr(102400) As Byte
    Dim timestart As Integer
    Dim tmppos As Integer
    Dim posresume As Integer
    Dim pathname As String
    Dim urlz As String
 
    Dim main As New main
    Dim url As String
    Dim filepath As String
 
    Sub start()
        Dim threadz As New System.Threading.Thread(AddressOf Get_file)
        threadz.Start()
    End Sub
 
    Sub stop_dl()
        b = False
    End Sub
 
    Sub Get_file()
        Do
            url = main.rechts.Items.Item(1)
 
            Dim dateiname() As String = url.Split("/")
            Dim nurdatei As String = dateiname(dateiname.GetUpperBound(0))
 
            If IO.File.Exists(main.Ordner & "\" & nurdatei) Then
                filepath = main.Ordner & "\" & nurdatei
                bresume = True
            Else
                filepath = main.Ordner & "\" & nurdatei
                bresume = False
            End If
 
            ' If proxy <> Nothing And proxyport <> Nothing Then
            ' Dim hproxy As WebProxy
            ' hproxy = New WebProxy(proxy, proxyport)
            ' GlobalProxySelection.Select = hproxy
            'End If
 
            Dim hwebrequest As System.Net.HttpWebRequest = _
              System.Net.WebRequest.Create(url)
            If bresume = True Then
                posresume = FileLen(filepath)
                tmppos = posresume
                hwebrequest.AddRange(CInt(tmppos))
            End If
            Dim hwebresponse As System.Net.HttpWebResponse = _
              hwebrequest.GetResponse
            readstr = hwebresponse.GetResponseStream
            lenfile = hwebresponse.ContentLength + tmppos
 
            timestart = Environment.TickCount
            Dim tmplen As Integer
            tmplen = 2
            b = True
            RaiseEvent start_dl(lenfile, posresume, timestart)
 
            Do While tmplen > 0
                If b = False Then Exit Do
                tmplen = readstr.Read(bytesarr, 0, 102400)
                tmppos += tmplen
                Dim filesave As New IO.FileStream(filepath, IO.FileMode.Append, _
                  IO.FileAccess.Write)
                filesave.Write(bytesarr, 0, tmplen)
 
                filesave.Close()
                RaiseEvent progress(tmppos)
                System.Threading.Thread.Sleep(1)
            Loop
 
            RaiseEvent end_dl(tmppos)
            readstr.Close()
 
            main.activepart += 1
        Loop Until main.activepart = main.rechts.Items.Count()
        MsgBox("end")
    End Sub
End Class

Mit freundlichen Gr??en

Peter