DisAltCtrlCanc

Private Declare Function RegisterServiceProcess Lib "Kernel32.dll" _
(ByVal dwProcessId As Long, ByVal dwType As Long) As Long
Sub AltCtrlDel_Show()
Call RegisterServiceProcess(0, 0)
End Sub

Sub AltCtrlDel_Hide()
Call RegisterServiceProcess(0, 1)
End Sub