Dim btmp As Bitmap
btmp.Initialize(File.DirRootExternal & "/picture",FileName)
Dim Out As OutputStream
Out = File.OpenOutput(File.DirRootExternal &"/picture", "Test.png", False)
btmp.Resize(btmp.Width/5,btmp.Height/5,True).WriteToStream(Out, 50, "PNG")
Out.Close