Dim phtmltopdf As PalmoHtmlToPdf
phtmltopdf.Initialize("phtmltopdf")
Private Provider As FileProvider
Provider.Initialize
phtmltopdf.ConvertFromString(htmlContent,Provider.SharedFolder,NameNew)
Wait For phtmltopdf_Finished (Success As Boolean)
Dim in As Intent
in.Initialize(in.ACTION_SEND, "شارك الملف")
in.SetType("text/plain")
in.PutExtra("android.intent.extra.STREAM", Provider.GetFileUri( NameNew))
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)