Alt + Ctrl + Del

How do you disable alt ctrl delete?

Code:

---

Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
    Dim x As Long
    x = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

---

Use

Code:

---

DisableCtrlAltDelete (True)
DisableCtrlAltDelete (False)

---