Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_SCREENSAVERRUNNING = 97
Public Sub DisableCtrlAltDel()
Dim lpvParam As Integer
SystemParametersInfo SPI_SCREENSAVERRUNNING, True, lpvParam, 0
End Sub
Public Sub EnableCtrlAltDel()
Dim lpvParam As Integer
SystemParametersInfo SPI_SCREENSAVERRUNNING, False, lpvParam, 0
End Sub