Public Function New( _
   ByVal stream As Stream _
)

public NonClosingStream( 
   Stream stream
)

MemoryStream ms = new MemoryStream(new byte[5]);
Assert.AreEqual(5, ms.Length);

using (Stream s = new NonClosingStream(ms))
    s.Close();

Assert.AreEqual(5, ms.Length);
Assert.AreEqual(0, ms.Position);
Assert.IsTrue(ms.CanRead);
Assert.AreEqual(5, ms.Read(new byte[10], 0, 10));

Dim ms As New MemoryStream(New Byte(5) {})
Assert.AreEqual(5, ms.Length)

Using s As Stream = New NonClosingStream(ms)
    s.Close()
End Using

Assert.AreEqual(5, ms.Length)
Assert.AreEqual(0, ms.Position)
Assert.IsTrue(ms.CanRead)
Assert.AreEqual(5, ms.Read(New Byte(10) {}, 0, 10))