Sub Compress(Bmp As Bitmap, Quality As Int) As Bitmap
Dim FileName As String = "temp.png"
Dim OStream As OutputStream
OStream = File.OpenOutput(File.DirInternal, FileName, False)
' mRSImageProcessing.compress(Bmp, "JPEG", Quality, OStream)
Bmp.WriteToStream(OStream, Quality, "PNG")
Dim IStream As InputStream
IStream = File.OpenInput(File.DirInternal, FileName)
Dim BmpCompressed As Bitmap
BmpCompressed.Initialize2(IStream)
File.Delete(File.DirInternal, FileName)
Return BmpCompressed
End Sub