Sub ImageView7_Click
Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
in.PutExtra("android.intent.extra.TEXT", Label3.Text)
in.PutExtra("android.intent.extra.TEXT", Label4.Text)
in.SetType("text/plain")
in.WrapAsIntentChooser("Share Via")
StartActivity(in)
End Sub