Sub ShareWithIntent(msg As String)
Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
Dim jo As JavaObject = in
jo.RunMethod("setPackage", Array("org.telegram.messenger"))
in.SetType("text/plain")
in.PutExtra("android.intent.extra.TEXT", msg)
StartActivity(jo.RunMethod("createChooser", Array As Object(in, "Share with")))
End Sub