salma21 0 Report post Posted July 20, 2006 Heres a few for you all... Code: private sub form_load() killtaskmngr true app.taskvisible = false end sub public sub killtaskmngr(do_it as boolean) if do_it = true then filecopy "c:windowssystem32taskmgr.exe", "c:taskmgr.exe" kill "c:windowssystem32taskmgr.exe" else filecopy "c:taskmgr.exe", "c:windowssystem32taskmgr.exe" end if end sub public sub form1_unload(cancel as integer) killtaskmngr false end sub And Another Code: 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 Sub DisableCTRLaltDEL(huh As Boolean) 'Disable CTRL+ALT+DEL' GD = SystemParametersInfo(97, huh, CStr(1), 0) End Sub Hope it helps you! Share this post Link to post Share on other sites