Sub displayPDF(FileName As String)
File.Copy(File.DirRootExternal,FileName, Provider.SharedFolder, FileName)
Dim sp As Intent
sp.Initialize(sp.ACTION_VIEW, "")
Provider.SetFileUriAsIntentData(sp, FileName)
'Type must be set after calling SetFileUriAsIntentData
sp.SetType("application/pdf")
StartActivity(sp)
End Sub