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

If firstpacket Then
                firstpacket = False
                StartTick = Environment.TickCount
                Exit Sub
            End If