Sub SharePic (fPath As String)
Dim u As Uri 'Uri类来自库ContentResolver library
u.Parse("file://" & fPath)
Dim inten As Intent
inten.Initialize(inten.ACTION_SEND,"")
inten.SetType("image/*")
inten.PutExtra("android.intent.extra.STREAM",u)
inten.WrapAsIntentChooser("分享图片")
StartActivity(inten)
End Sub