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.
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Dim lReturnVal As Long
Dim iFadeLevel As Integer
iFadeLevel = 128 ' or any value between 0 and 255
lReturnVal = GetWindowLong(me.hWnd, GWL_EXSTYLE)
lReturnVal = lReturnVal Or WS_EX_LAYERED
SetWindowLong me.hWnd, GWL_EXSTYLE, lReturnVal
SetLayeredWindowAttributes Me.hWnd, 0, iFadeLevel , LWA_ALPHA