Sub botaoface_Click
Dim TheUrl As String
TheUrl = "http://www.ibm.com"
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "http://m.facebook.com/sharer.php?u="&TheUrl&"")
i.SetType("text/plain")
i.PutExtra("android.intent.extra.TEXT", TheUrl)
i.WrapAsIntentChooser("Escolha o navegador!")
StartActivity(i)
End Sub