Android Question Take a picture with the camera application

CallSubDelayed2(Second, "ShowList", "1_2")

Sub ShowList(Title As String)
    Name=Title
End Sub

Sub Activity_Create(FirstTime As Boolean)

Name=Title

Sub Button2_1_Click
    Dim index As Int= CLV_Second.GetItemFromView(Sender)
    FotoInd=index
    TakePicture
End Sub

Sub Button1_Click
    OpenCam(File.DirDefaultexternal, "MyPicture.jpg")
End Sub
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