Sub PostImageFacebook
'1. copy the image to File.DirDefaultExternal
File.Copy(File.DirAssets, "android.jpg", File.DirDefaultExternal, "android.jpg")
'2. select the image
Dim u As Uri
u.Parse("file://" & File.Combine(File.DirDefaultExternal,"android.jpg"))
Dim pm As PackageManager
Dim fb1 As String
'3. select the intent of facebook to share image
Dim i As Intent
i.Initialize(i.ACTION_SEND,"")
i.SetType("image/jpg")
For Each cn As String In pm.QueryIntentActivities(i)
If cn.SubString2(0,20) = "com.facebook.katana/" Then
fb1 = cn
Exit
End If
Next
i.SetComponent(fb1)
i.PutExtra("android.intent.extra.STREAM",u)
'4. start intent
Try
StartActivity(i)
Catch
ToastMessageShow("Error!",False)
End Try
End Sub