A nice funtion to disable all the Ctrl + Alt + Del, Ctrl + Esc keys to prevent the user from exiting the form - you can also set the form's Border Style property to 0 - None.

Here's the code.

First declare the API function.
Declare Function SystemParametersInfo _
Lib "user32" Alias "SystemParametersInfoA" _
(byval uAction as Long, byval uParam as Long, _
byval lpvParam as Any, byval fuWinIni as Long) as Long 'API Function to disable keys



Then the sub (Also in General Declarations)
Sub DisableCtrlAltDel(bDisabled as Boolean)

' Disables Control Alt Delete Breaking
'as well as Ctrl-Escape

Dim X as Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)

End Sub

'to disable CtrlAltDel do a call as such...
'Call DisableCtrlAltDel(true), '
'to re-enable use false instead of true in the call.



To call the function just do like this:
Call DisableCtrlAltDel(false) 'can use true as well



Remeber to re-enable it when the program exits!

Peace!


F. T. W.