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_Current()
Dim f, fs, strURL
strURL = "c:\docs\tmp.htm"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strURL, True)
a.Write Me.HTM
a.Close
Set IE = Me.wb 'Microsoft Web Browser
IE.Navigate strURL
End Sub