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