Android Question Update APK with Intent - Response

Sub Class_Globals
    ' other global variables
    Private ion As Object
End Sub

Private Sub SendInstallIntent
    Dim i As Intent
    If Phone.SdkVersion >= 24 Then
        File.Copy(File.DirInternal, FileToInstall, Provider.SharedFolder, FileToInstall)
        i.Initialize("android.intent.action.INSTALL_PACKAGE", Provider.GetFileUri(FileToInstall))
        i.Flags = Bit.Or(i.Flags, 1) 'FLAG_GRANT_READ_URI_PERMISSION
    Else
        i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirInternal, FileToInstall))
        i.SetType("application/vnd.android.package-archive")
    End If
    'StartActivity(i)
    StartActivityForResult(i)
End Sub

Sub ion_Event (MethodName As String, Args() As Object) As Object
    'Args(0) = resultCode
    'Args(1) = intent
    Log("MethodName=" & MethodName)
    Dim resultCode As Int = Args(0)
    If resultCode = 0 Then
        Log("Cancel")
    Else If resultCode = -1 Then 'resultCode = RESULT_OK
        Log("OK") ' never reached?
    Else
        Log("resultCode=" & resultCode)
    End If
    Return Null
End Sub

Sub StartActivityForResult (i As Intent)
    Dim jo As JavaObject = GetBA
    ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
    jo.RunMethod("startActivityForResult", Array As Object(ion, i))
End Sub

Sub GetBA As Object
    Dim jo As JavaObject = Me
    Return jo.RunMethod("getBA", Null)
End Sub

Hi there, here the code for checking if update-try canceled or not...

Private Sub SendInstallIntent As ResumableSub

    Dim i As Intent

    If Phone.SdkVersion >= 24 Then
        File.Copy(File.DirInternal, FileToInstall, Starter.Provider.SharedFolder, FileToInstall)
        i.Initialize("android.intent.action.INSTALL_PACKAGE", Starter.Provider.GetFileUri(FileToInstall))
        i.Flags = Bit.Or(i.Flags, 1) 'FLAG_GRANT_READ_URI_PERMISSION
    Else
        i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirInternal, FileToInstall))
        i.SetType("application/vnd.android.package-archive")
    End If
    
    Try
        StartActivityForResult(i)
        Wait For ion_Event (MethodName As String, Args() As Object)
        Return 1
    Catch
        Return -1
    End Try
    
End Sub