Sub OpenPdf(FName As String)
Dim i As Intent 'Requires a reference to the Phone library
Try
i.Initialize(i.ACTION_VIEW, "file:///" & FName)
i.SetType("application/pdf")
i.WrapAsIntentChooser("Choose PDF Viewer")
StartActivity(i)
Catch
Msgbox("Error opening " & FName & CRLF & LastException.Message, "Open PDF Error")
End Try
End Sub