Dim i As Intent
i.Initialize(i.ACTION_SEND, "")
i.SetType("*/*")
i.PutExtra("android.intent.extra.TEXT", "This is the text")
Dim u As Uri
u.Parse("file://" & File.Combine(File.DirRootExternal, "1.jpg")) '<-- change to a valid image file
i.PutExtra("android.intent.extra.STREAM", u)