Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Form_Load()
Dim filename, fullpath
fullpath = CurrentProject.FullName
filename = Left(fullpath, InStrRev(fullpath, "\") - 1)
Me.WebBrowser0.Navigate filename & "\" & "pdffile.pdf"
End Sub