Declare Function LockWorkStation Lib "user32.dll" () As Long
LockWorkStation блокирует компьютер до тех пор, пока не будет введен пароль. Функция выполняет ту работу, что и при нажатии комбинации кнопок Ctrl+Alt+Del и выборе "Lock Workstation" (Блокировка)
Функция не имеет параметров
' Блокируем компьютер
Dim retval As Long
retval = LockWorkStation()