Sub imgView_Click
Dim i As Intent, Directory As String, PictureName As String
Directory = File.DirDefaultExternal 'File.DirRootExternal
PictureName = "radtemp.jpg"
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", 1) 'crop aspects
i.PutExtra("aspectY", 1) 'crop aspects
i.PutExtra("outputX", 256) 'crop size
i.PutExtra("outputY", 256) 'crop size
StartActivity(i)
End Sub