Private Sub btnShare_Click
Dim provider As FileProvider
provider.Initialize
Dim filename As String = "tempImage.jpg"
Dim f As String = provider.SharedFolder
Dim bmp As B4XBitmap = ZoomImageView1.ImageView.GetBitmap
Dim out As OutputStream = File.OpenOutput(f,filename,False)
bmp.WriteToStream(out,100,"JPEG")
Dim i As Intent
i.Initialize(i.ACTION_SEND,"")
i.PutExtra("android.intent.extra.STREAM", provider.GetFileUri(filename))
i.SetType("image/*")
i.Flags = 1
StartActivity(i)
End Sub