Sub BtApriCon_Click
File.Copy(File.DirDefaultExternal,FileName, Starter.Provider.SharedFolder,FileName)
Dim ia As Intent
ia.Initialize (ia.ACTION_VIEW,"" )
Starter.Provider.SetFileUriAsIntentData(ia,LoadLink)
ia.SetType ( "application/pdf" )
ia.WrapAsIntentChooser ( "Select" )
ia.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
StartActivity (ia)
ToastMessageShow("Select App",True)
End Sub