Sub cropPicture(Directory As String, PictureName As String, PictureName2 As String)
Dim i As Intent
i.Initialize("com.android.camera.action.CROP","")
i.SetType("image/*")
i.SetComponent(ParseUri("file://" & File.Combine(Directory, PictureName)))
i.PutExtra("crop", "true")
i.PutExtra("aspectX", 1)
i.PutExtra("aspectY", 1)
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName2)))
StartActivity(i)
End Sub