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.
'API declaration
Private Declare Function LockWorkStation Lib "user32.dll" () As Long
'put the following in form load or whatever
' don't forget that the lock doesn't "halt" program execution
Private Sub Command1_Click()
Dim lRes As Long
lRes = LockWorkStation() ' Brings up standard Locked screen
'user will only be able to bypass wit their password
'and admin rights of course
If lRes = 0 Then
MsgBox "unable to lock", , "Error"
End If