fl = "file.pdf"
If File.Exists(File.DirInternal, fl) Then
File.Copy(File.DirInternal, fl,Provider.SharedFolder,fl)
Dim sendIntent As Intent
sendIntent.Initialize(sendIntent.ACTION_MAIN,"")
sendIntent.Action=sendIntent.ACTION_SEND
sendIntent.SetPackage("com.whatsapp")
sendIntent.SetComponent("android/com.android.internal.app.ResolverActivity")
sendIntent.putExtra("jid", EditText2.Text & "@s.whatsapp.net")
sendIntent.PutExtra("android.intent.extra.STREAM", Provider.GetFileUri(fl))
sendIntent.PutExtra("android.intent.extra.TEXT","Si allega documento :")
sendIntent.SetType("application/pdf")
StartActivity(sendIntent)
Else
ToastMessageShow ("File non trovato, effettuare download",True)
End If