In.PutExtra("android.intent.extra.STREAM", CreateUri("file://" & File.Combine(tmpFilePath, t )))
Sub CreateUri(uri As String) As Object
Dim r As Reflector
Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(uri), Array As String("java.lang.String"))
End Sub