Sub OpenCam(Directory As String, PictureName As String)
Dim i As Intent
i.Initialize("android.media.action.IMAGE_CAPTURE", "")
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName)))
StartActivity(i)
End Sub
Sub ParseUri(FileName As String) As Object
Dim r As Reflector
Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String"))
End Sub
OpenCam(File.DirDefaultExternal, "MyPicture.jpg")