Private Sub chkCtlAltDelDisabled_Click()
    SystemParametersInfo SPI_SETSCREENSAVERRUNNING, _
        (chkCtlAltDelDisabled.Value = vbChecked), _
        0&, 0
End Sub

' Reenable Ctl-Alt-Del.
Private Sub Form_Unload(Cancel As Integer)
    SystemParametersInfo SPI_SETSCREENSAVERRUNNING, _
        False, 0&, 0
End Sub