Protected Sub SaveDocOutputStream(ByVal ms As MemoryStream, ByVal nomeDocumento As String)
  Dim buffer As Byte() = ms.GetBuffer()
  ms.Flush()

  Response.Clear()
  'Response.AddHeader("Content-Disposition", "inline; filename=" & nomeDocumento)
  Response.AddHeader("Content-Disposition", "attachment; filename=" & nomeDocumento)
  Response.AddHeader("Content-Length", buffer.Length.ToString)
  Response.ContentType = "application/pdf"
  'Response.ContentType = "application/octet-stream"
  If buffer.Length > 0 Then
    Me.Response.OutputStream.Write(buffer, 0, buffer.Length)
  End If

  Response.Flush() : Response.End()

End Sub