Public Function New( _
   ByVal stream As Stream, _
   ByVal mode As CryptoStreamMode _
)

public Base64Stream( 
   Stream stream,
   CryptoStreamMode mode
)

byte[] data = new byte[256];
for (int i = 0; i < data.Length; i++)
    data[i] = (byte)i;

using (Stream mem = new MemoryStream())
{
    using (Stream io = new Base64Stream(new NonClosingStream(mem), CryptoStreamMode.Write))
        io.Write(data, 0, data.Length);


    Assert.AreEqual(((data.Length + 2) / 3 * 4), mem.Position);
    mem.Position = 0;
    string test = new StreamReader(mem).ReadToEnd();
    Assert.AreEqual(Convert.ToBase64String(data), test);
}

Dim data As Byte() = New Byte(256) {}
Dim i As Integer = 0
While i < data.Length
    data(i) = DirectCast(i, Byte)
    System.Math.Max(System.Threading.Interlocked.Increment(i),i - 1)
End While

Using mem As Stream = New MemoryStream()
    Using io As Stream = New Base64Stream(New NonClosingStream(mem), CryptoStreamMode.Write)
        io.Write(data, 0, data.Length)
    End Using


    Assert.AreEqual(((data.Length + 2) / 3 * 4), mem.Position)
    mem.Position = 0
    Dim test As String = New StreamReader(mem).ReadToEnd()
    Assert.AreEqual(Convert.ToBase64String(data), test)
End Using