اشتراک متن صفحه

[omid18 13]

سلام دوستان وقتی کدزیر رو که مربوط به اشتراک گذاری است رو اجرا میکنم مثلا وقتی تلگرام یا شیرایت رو انتخاب میکنم    unsuported content رومیده مشکل کجاس

Sub btnshare_Click
File.WriteString(File.DirInternal,"test.txt",Label1.Text)
File.Writestring(File.DirInternal,"test.txt",Label1.text) 
Dim i As Intent
i.Initialize(i.ACTION_SEND, "") 
i.SetType("text/plain") 
i.PutExtra("android.intent.extra.text",File.ReadString(File.DirInternal,"test.txt"))  
i.WrapAsIntentChooser("  بگذارید اشتراک به را داستان...!")
StartActivity(i)
End Sub