Sub camera(Directory As String, PictureName As String)
Dim i As Intent
i.Initialize("android.media.action.IMAGE_CAPTURE", "" )
i.PutExtra("crop", "true") 'crop ON
i.PutExtra("aspectX", 0) 'crop aspects
i.PutExtra("aspectY", 0) 'crop aspects
i.PutExtra("outputX", 180) 'crop size
i.PutExtra("outputY", 310) 'crop size
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName)))
StartActivity(i)
Sleep(2000)
Try
ImageView1.Visible=True
Dim Bitmap1 As Bitmap
Bitmap1.InitializeSample (Main.RUTA, "tmpImagen.jpg",100%x,100%y)
Catch
Msgbox(LastException,"")
End Try
End Sub