Public Function New( _
   ByVal streamFactory As IFactory(Of Stream) _
)

public StreamCache( 
   IFactory<Stream> streamFactory
)

Stream stream;
using (TempFile tempFile = new TempFile())
{
    using (StreamCache cache = new StreamCache(new FileStreamFactory(tempFile.TempPath, FileMode.Open)))
    {
        using (stream = cache.Open())
        {
            stream.SetLength(100);
            stream.WriteByte(1);
        }
    }

    Assert.AreEqual(100, tempFile.Length);
    using (stream = tempFile.Open())
        Assert.AreEqual(1, stream.ReadByte());
}

Dim stream As Stream
Using tempFile As New TempFile()
    Using cache As New StreamCache(New FileStreamFactory(tempFile.TempPath, FileMode.Open))
        Using stream = cache.Open()
            stream.SetLength(100)
            stream.WriteByte(1)
        End Using
    End Using

    Assert.AreEqual(100, tempFile.Length)
    Using stream = tempFile.Open()
        Assert.AreEqual(1, stream.ReadByte())
    End Using
End Using