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.
[blue]Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_GETWORKAREA = 48
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Activate()
Dim DesktopArea As RECT
Call SystemParametersInfo(SPI_GETWORKAREA, 0, DesktopArea, 0)
DesktopArea.Top = DesktopArea.Top * Screen.TwipsPerPixelY
DesktopArea.Bottom = DesktopArea.Bottom * Screen.TwipsPerPixelY
DesktopArea.Right = DesktopArea.Right * Screen.TwipsPerPixelX
DesktopArea.Left = DesktopArea.Left * Screen.TwipsPerPixelX
Move DesktopArea.Left, DesktopArea.Top, DesktopArea.Right - DesktopArea.Left, DesktopArea.Bottom - DesktopArea.Top
End Sub[/blue]