Sub Galeria(Directory As String, PictureName As String)
Dim i As Intent
onoff = True
i.Initialize(i.ACTION_PICK, "") ' I need to change this line with existed file e.g. FileDirRootExternal,123456.jpg
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", 200) 'crop aspects
i.PutExtra("aspectY", 200) 'crop aspects
i.PutExtra("outputX", 50%x) 'crop size
i.PutExtra("outputY", 50%x) 'crop size
StartActivity(i)
End Sub