Dim stream As System.IO.Stream = response.GetResponseStream()
Dim ms As MemoryStream = New MemoryStream(&H10000)
Dim buffer As Byte() = New Byte(4095) {}
Dim bytes As Integer
While bytes = stream.Read(buffer, 0, buffer.Length) > 0
      ms.Write(buffer, 0, bytes)
End While