this code doesn't work or either it's in the wrong order.

[timbudtwo]

I put this code in my for to disable ctrl alt del
I put this in the declorations part of my app
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

I put this in the form

Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

Call DisableCtrlAltDelete(True)

but it doesn't disable ctrl alt delete and ctrl esc and I got the code from the site section.