'Deshabilita el uso de Control+Alt+Supr
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

Private Sub ToggleCtrlAltDel(IsEnabled As Boolean)
   Dim lReturn  As Long
   Dim lBool As Long
   lReturn = SystemParametersInfo(SPI_SCREENSAVERRUNNING, IsEnabled, lBool, vbNull)
End Sub