Sub ShareIt
Dim px As B4XView
px=pnlCard
bx= px.Snapshot
File.Delete(File.DirInternal & "/xxx/Temp","tmp.jpg")
Dim out As OutputStream
out=File.OpenOutput(File.DirInternal & "/xxx/Temp","tmp.jpg",True)
bx.WriteToStream(out,100,"JPEG")
Dim FileName As String = "tmp.jpg"
File.Copy(File.DirInternal & "/xxx/Temp", FileName, starter.Provider.SharedFolder, FileName)
Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
in.SetType("image/*")
in.PutExtra("android.intent.extra.STREAM", starter.Provider.GetFileUri(FileName))
in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)
End Sub