Option Explicit
 
' Rama del registro para deshabilitar y habilitar el TaskManager de XP
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Const RAMA_REGISTRO As String = _
   "HKEY_CURRENT_USER\Software\" & _
     "Microsoft\Windows\CurrentVer" & _
   "sion\Policies\System\DisableTaskmgr"
 
 Private Sub Grabar_Registro(Rama As String, Value As Integer)
 
    Dim wsh As Object
    On Error GoTo error_sub
 
   'creamos la variable para usar wsh
   Set wsh = CreateObject("wscript.shell")
 
  'Grabamos el valor en el registro con el método regWrite _
   de windows script host
   wsh.RegWrite Rama, Value, "REG_DWORD"
 
   'Eliminamos la variable wsh creada
    Set wsh = Nothing
 
Exit Sub
 
' Error
error_sub:
   MsgBox Err.Description: Resume Next
End Sub
 
'BOTON PARA Desactivar las teclas
''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command1_Click()
  Grabar_Registro RAMA_REGISTRO, "1"
End Sub
 
'BOTON PARA Activar Ctrl+Alt+Sup
 ''''''''''''''''''''''''''''''''''''''''''''
Private Sub Command2_Click()
  Grabar_Registro RAMA_REGISTRO, "0"
End Sub
 
Private Sub Form_Load()
   Command1.Caption = " Desactivar "
 Command2.Caption = " Activar "
End Sub