Private dir As String
dir=pr.GetSafeDirDefaultExternal("shared")
Try
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW,"")
Intent1.SetType("application/pdf")
Intent1.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(dir, "book.pdf"))
Intent1.Flags = 1
StartActivity(Intent1)
Catch
ToastMessageShow("Error",True)
End Try