Android Question VIEW IMAGE INTENT (targetSdkVersion 26)

Sub Button1_Click
    'copy the file to the shared folder
    File.Copy(File.DirAssets, "b4a.png", Starter.shared, "b4a.png")
    Dim in As Intent
    in.Initialize(in.ACTION_SEND, CreateFileProviderUri(Starter.shared, "b4a.png"))
    in.Flags = 1
    StartActivity(in)
End Sub

AddApplicationText(
  <provider
  android:name="android.support.v4.content.FileProvider"
  android:authorities="$PACKAGE$.provider"
  android:exported="false"
  android:grantUriPermissions="true">
  <meta-data
  android:name="android.support.FILE_PROVIDER_PATHS"
  android:resource="@xml/provider_paths"/>
  </provider>
)
CreateResource(xml, provider_paths,
   <external-files-path name="name" path="shared" />
)

Sub intentIMAGE(img As String)
    Dim viewINT As Intent
    Dim rp As RuntimePermissions
    Dim dr,fn As String

    ' Shared folder
    dr = rp.GetSafeDirDefaultExternal("shared")
   
    fn = "image_product.jpg"
    If img.ToLowerCase.Contains(".jpg") Then fn = "image_product.jpg"
    If img.ToLowerCase.Contains(".png") Then fn = "image_product.png"
   
    ' Delete previous image
    If File.Exists(dr, fn) Then File.Delete(dr,fn)
   
    ' Copy to new pad
    If File.Exists(File.DirDefaultExternal, img) Then File.Copy(File.DirDefaultExternal, img, dr, fn)
   
   
    ' the intent
    If File.Exists(dr, fn) Then
       
        viewINT.Initialize(viewINT.ACTION_VIEW,cfpURI(dr, fn))
        viewINT.Flags = 1

        Try
            StartActivity(viewINT)
        Catch
            ToastMessageShow("Error on intent:" & CRLF & img,True)
        End Try

    Else
        ToastMessageShow("Error on path:" & CRLF & img,False)
    End If
End Sub  


' CreateFileProviderUri
Sub cfpURI(Dir As String, FileName As String) As Object
    Dim FileProvider As JavaObject
    Dim context As JavaObject
    context.InitializeContext
    FileProvider.InitializeStatic("android.support.v4.content.FileProvider")
    Dim f As JavaObject
    f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
    Return FileProvider.RunMethod("getUriForFile", Array(context, Application.PackageName & ".provider", f))
End Sub