Sub BtCondividi_Click
Dim r As Reflector
Dim f As Object
f = r.CreateObject2("java.io.File", Array As Object(ShareBitmap), Array As String("java.lang.String"))
Dim share As Intent
share.Initialize(share.ACTION_SEND,"")
share.SetType("image/*")
share.PutExtra("android.intent.extra.STREAM", r.RunStaticMethod("android.net.Uri", "fromFile", _
Array As Object(f), Array As String("java.io.File")))
share.WrapAsIntentChooser("Share With")
StartActivity(share)
End Sub