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 SendMessage _
Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) _
As Long
Private Sub CloseActXWindow()
Dim hndHandle As Long
Dim ieApp as InternetExplorer
Const NILL = 0&
Const WM_SYSCOMMAND = &H112
Const SC_CLOSE = &HF060&
Set ieApp = UserDocument.Parent
'Call that actually closes the window
hndHandle = SendMessage(ieApp, WM_SYSCOMMAND, _
SC_CLOSE, NILL)
End Sub
CloseActXWindow