Sub Button2_Click
If Not (File.Exists(Starter.shared,"1.pdf")) Then
File.Copy(File.DirAssets,"1.pdf",Starter.shared,"1.pdf")
End If
Dim in As Intent
in.Initialize(in.ACTION_SEND,"")
in.SetType("application/pdf")
in.SetComponent("")
in.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(Starter.shared,"1.pdf"))
in.Flags=1
StartActivity(in)
End Sub