camEx.SavePictureToFile(Data, File.DirRootExternal, "1.jpg")
b = CropBitmap(LoadBitmap(File.DirRootExternal,"1.jpg"),0,0,3000,500)
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "1cr.jpg", False)
b.WriteToStream(out, 100, "JPEG")
out.Close