Dim i As Intent
i.Initialize("android.intent.action.SEND_MULTIPLE", "")
i.SetType("text/plain")
i.WrapAsIntentChooser("Share Using")
Dim Uris As List
Uris.Initialize
For Each f As String In files
Dim u As Uri
u.Parse("file://" & f)
Uris.Add(u)
Next
Dim jo As JavaObject = i
jo.RunMethod("putParcelableArrayListExtra", Array As Object("android.intent.extra.STREAM", Uris)
StartActivity(i)