Dim buffer(stream.Length - 1) As Byte
            stream.Read(buffer, 0, buffer.Length)
            Dim uri As Uri = New Uri(address)
            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(uri), _
              HttpWebRequest)
            Dim response As HttpWebResponse
            request.ContentLength = stream.Length
            request.Method = WebRequestMethods.File.UploadFile
            request.AllowWriteStreamBuffering = True
            request.AllowAutoRedirect = True
            request.Credentials = CredentialCache.DefaultCredentials
            request.GetRequestStream.Write(buffer, 0, buffer.Length)
            response = request.GetResponse
            request.GetRequestStream.Close()