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.
Dim ieVersion
Dim RetVal
Dim TheKey As String
Dim winVersion
Dim NewStr, KeyFinder
TheKey = -1
Set KeyFinder = CreateObject("wscript.shell")
ieVersion = KeyFinder.RegRead _("HKLM\SOFTWARE\Microsoft\Internet Explorer\Version")
NewStr = InStr(1, ieVersion, ".", vbTextCompare)
ieVersion = Left(ieVersion, NewStr) & Replace(ieVersion, ".", "", NewStr, -1, vbTextCompare)
If Val(ieVersion) > 5 Then
TheKey = KeyFinder.RegRead("HKLM\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{648A5600-2C6E-101B-82B6-000000000014}\Compatibility Flags")
If TheKey > 0 Then
KeyFinder.RegWrite "HKLM\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{648A5600-2C6E-101B-82B6-000000000014}\Compatibility Flags", 0, "REG_SZ"
End If
End If