Dim Url As String
Url = "https://play.google.com/store/apps/details?id=com.androidcrc.practicaCosevi"
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "http://m.facebook.com/sharer.php?u=" & Url)
i.SetType("text/plain")
i.PutExtra("android.intent.extra.TEXT", Url)
i.WrapAsIntentChooser("Open Browser")
StartActivity(i)