'*******************************************
' Disable CTRL+ALT+DELETE - by DarKPaiN
'
'w w w . P r o g e n i c . c o m
'*******************************************


'***********PLACE IN FORM************


Private Sub Form_Load()
	DISCAD TRUE
End Sub


'***********PLACE IN MODULE************

Declare Function SystemParametersInfo Lib "User32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Sub DisCAD(bDisabled As Boolean)
Dim X As Long
On Error Resume Next
    X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub