Sub Button1_Click
Dim apkFile As String = File.Combine(File.DirRootExternal & "/Download", "skorb.apk")
Dim i As Intent
If phone.SdkVersion >= 24 Then
Log(Provider.GetFileUri(apkFile))
i.Initialize("android.intent.action.INSTALL_PACKAGE", Provider.GetFileUri(apkFile))
i.Flags = Bit.Or(i.Flags, 3) 'FLAG_GRANT_READ_URI_PERMISSION)
Provider.SetFileUriAsIntentData(i, "skorb.apk")
i.SetType("application/vnd.android.package-archive")
Else
Provider.SetFileUriAsIntentData(i, apkFile)
i.SetType("application/vnd.android.package-archive")
i.Flags = Bit.Or(i.Flags, 1) ' FLAG_GRANT_READ_URI_PERMISSION
End If
StartActivity(i)
End Sub