Private bitmap2 As Bitmap
bitmap2.InitializeMutable(800,600)
cvs.Initialize2(bitmap2)
cvs.DrawColor(Colors.Green)
Dim Out As OutputStream
Out = File.OpenOutput(File.DirRootExternal, "reTest.png", False)
cvs.Bitmap.WriteToStream(Out, 100, "PNG")
Out.Close