Private Function HttpRequest(ByVal sobject As STATEOBJECT) As String
        ' neuen httprequeststring erstellen für unser instanzobject
        Dim s As New System.Text.StringBuilder
        s.Append("GET " & sobject.remoteFileName & " HTTP/1.1" & _
          ControlChars.CrLf)
        s.Append("Host: " & sobject.rHOST & ControlChars.CrLf)
        If sobject.resuming Then
            s.Append("Range: bytes=" & sobject.fSize.ToString & "-" & vbCrLf)
        End If
        ' 2 crlfs tun response/request von daten trennen muss immer zum schluss 
        ' eines requests angegeben werden
        s.Append("Connection: Keep-Alive" & ControlChars.CrLf & "Accept: */*" & _
          ControlChars.CrLf & ControlChars.CrLf)
        Return s.ToString
    End Function
    Private Sub processData(ByVal sobject As STATEOBJECT, ByVal bytestotal As _
      Integer)
        If Not Abort Then
            If firstpacket Then
                ' dat is allways die response also könnt ihr hier 
                ' remotefilesize etc holn 
                ' könnt ausrechnen wieviele bytes noch zu
                ' übertragen sind etc das is alles nur noch fleissarbeit ;)
                Dim response As String = System.Text.Encoding.Default.GetString( _
                  sobject.buf)
                Dim arr() As String = response.Split(vbCrLf.ToCharArray)
                If arr(0).IndexOf("200 OK") = -1 Then
                    ' sumthins wrong
                    RaiseEvent DownloadError(arr(0))
                    Abort = True
                    Exit Sub
                End If
                firstpacket = False
                StartTick = Environment.TickCount
                Exit Sub
            End If
            ' einfach alles ans ende schreiben :...
            sobject.fStream = New IO.FileStream(sobject.fName, _
              IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite, _
              IO.FileShare.None)
            sobject.fStream.Seek(0, IO.SeekOrigin.End)
            sobject.fStream.Write(sobject.buf, 0, bytestotal)
            sobject.fStream.Flush()
            sobject.fStream.Close()
            DownloadedBytes = DownloadedBytes + bytestotal
            Dim tick As Long = Environment.TickCount
            Dim seconds As Double = Math.Round(((tick - StartTick) / 1000), 2)
            RaiseEvent DownloadProgress("Transferred " & ( _
              DownloadedBytes).ToString("N0") & " in " & seconds.ToString & "" & _
              "Seconds " & " = " & Math.Round((DownloadedBytes / kb) / seconds, _
              2).ToString & " KB/s.")
        End If
    End Sub
End Class

 Dim WithEvents dl As HttpDownloadEX
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        dl = New HttpDownloadEX("download.mcafee.com", _
        "/products/manuals/de/VS_UserGuide_Sep04.pdf", _
        "c:\VS_UserGuide_Sep04.pdf")
    End Sub
 
    Private Sub dl_connectionerror(ByVal reason As String) Handles _
      dl.DownloadError
        MsgBox(reason)
    End Sub
 
    Private Sub dl_DownloadFinished() Handles dl.DownloadFinished
        MsgBox("fettisch")
    End Sub
 
    Private Sub dl_DownloadProgress(ByVal progress As String) Handles _
      dl.DownloadProgress
        Debug.WriteLine(progress)