Dim webrequest As HttpWebRequest = CType(HttpWebRequest.Create(uri), _
   HttpWebRequest)
...
        Dim requestStream As Stream = webrequest.GetRequestStream()
        ' Write out header to server
        requestStream.Write(postHeaderBytes, 0, postHeaderBytes.Length)
        ''Application.DoEvents()
        ' Write out the file contents to server in chunks of 4K
        Dim buffer() As Byte
        ReDim buffer(Math.Min(4095, fileStream.Length))
        Dim bytesRead = 1 'initialize to any number except 0
        While bytesRead <> 0
            bytesRead = fileStream.Read(buffer, 0, buffer.Length)
            If bytesRead <> 0 Then 'make sure EOF is not reached
                requestStream.Write(buffer, 0, bytesRead)
            End If
            'Application.DoEvents()
        End While
....
 
 
 
      Dim response As WebResponse = webrequest.GetResponse() 'hier kommt der 
      ' Timeout
        Dim s As Stream = response.GetResponseStream()
        Dim sr As New StreamReader(s)
        Debug.WriteLine(sr.ReadToEnd)