Public Sub SharedFile(FileToSend As String,SharedFolder1 As String)
Provider.Initialize
File.Copy(SharedFolder1, FileToSend, Provider.SharedFolder, FileToSend)
Dim in As Intent
in.Initialize(in.ACTION_SEND, "")
in.PutExtra("android.intent.extra.SUBJECT",FileToSend&".zip")
in.SetType("text/plain")
in.PutExtra("android.intent.extra.STREAM", Provider.GetFileUri(FileToSend))
in.Flags=1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity(in)
End Sub