i.Initialize(i.ACTION_PICK, "")
i.SetType("image/*")
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg")
i.PutExtra("crop", "true") 'crop ON
i.PutExtra("aspectX",50%x) 'crop aspects
i.PutExtra("aspectY", 50%x) 'crop aspects
i.PutExtra("outputX", 50%x) 'crop size
i.PutExtra("outputY", 50%x) 'crop size
StartActivity(i)