Dim Out As OutputStream
Dim FileSize=100 As Int
Bitmap = xui.LoadBitmapResize(File.DirInternal,"FileName.jpg",1280dip,1280dip,True)
Do While File.Size(File.DirInternal,"FileName.jpg")>1500000 And FileSize<>50
Out = File.OpenOutput(File.DirInternal,"FileName.jpg",False)
Bitmap.WriteToStream(Out, FileSize, "JPEG")
Out.Close
FileSize=FileSize-10
Loop