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 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_MAXIMIZE = 3
Dim hWnd As Long
hWnd = FindWindow("Notepad", vbNullString)
If hWnd Then ShowWindow hWnd, SW_MAXIMIZE