Function RenderStream( _
           ByVal StreamName As String, _
           ByVal Report As Report, _
           ByVal ReportServerParameters As NameValueCollection, _
           ByVal DeviceInfo As NameValueCollection, _
           ByVal ClientCapabilities As NameValueCollection, _
           ByRef RenderProperties As Hashtable, _
           ByVal CreateAndRegisterStream As Microsoft.ReportingServices.Interfaces.CreateAndRegisterStream _
           ) As Boolean Implements IRenderingExtension.RenderStream
            Dim S As System.IO.Stream = CreateAndRegisterStream("Report", "txt", System.Text.Encoding.UTF8, "text/html", True, Microsoft.ReportingServices.Interfaces.StreamOper.CreateAndRegister)
            Dim SW As New System.IO.StreamWriter(S)
            SW.WriteLine("<b><u>RenderStream</u></b><br>")
            For Each key As String In ReportServerParameters.AllKeys
                SW.Write(key + "=" + ReportServerParameters(key) + "<br>")
            Next
            SW.Flush()
            Return True
            SW.Close()
        End Function