compression

I need to reduce the space occupied by the photo. Ideally, the photo should weigh less than 1.5Mb. For this I use the code: Dim Out As OutputStream Dim FileSize=100 As Int Bitmap = xui.LoadBitmapResize(File.DirInternal,"FileName.jpg",1280dip,1280dip,True) Do While...