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.
Sub main()
Dim wait As Double
wait = Timer
While Timer < wait + 0.5
DoEvents
Wend
SendKeys "{F9}{F10}^{F1}", True
End Sub