Dim bmp As Bitmap
bmp = ModuloFunciones.LoadbitmapSample2(Starter.provider.SharedFolder, tempImageFile, True)
bmp = ModuloFunciones.CreateScaledBitmap(bmp, 1920, 1080, True)
Dim Out As OutputStream
Out = File.OpenOutput(Starter.provider.SharedFolder, tempImageFile, False)
bmp.WriteToStream(Out, 100, "JPEG")
Out.Close