Codigo para Eliminar restricciones del sistema.

Hola

En la escuela me estan enseñando VB6.0 y viendo las cosas que me hacen hacer (Una calculadora que solamente sirve para sumar dos numero :O que util) decidi mandarme a hacer algo que si sirva.

Estoy haciendo un programa al estilo del Reg Unloker o del Xtools
(por si no los conoces desactivan las restricciones del sistema que aveces activan algunos virus)

~~El problema es que tengo el codigo para el administrador de tareas ¬¬~~

EDTIO: Amplie el codigo con un poco de exploracion en el registro de windows

Código:

Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
'creamos la variable para usar Fso
Set Fso = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite
Fso.regwrite Folder, Value, "REG_DWORD"

'Eliminamos la variable Fso
Set Fso = Nothing
Exit Sub

'error
men:
MsgBox Err.Description: Resume Next
End Sub
' administrador de tareas bloqueado
Private Sub cmdAdmOFF_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Sub


'BOTON PARA desbloquear Adm de tareas:
Private Sub cmdAdmON_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub

'ms config bloqueado
Private Sub cmdmsconfigOFF_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisallowRun", "1"
End Sub

'ms config desbloqueado
Private Sub cmdmsconfigON_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisallowRun", "0"
End Sub

'regedit bloqueado
Private Sub cmdRegOFF_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1"
End Sub

'regedit desbloqueado
Private Sub cmdRegON_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "0"
End Sub

Despues lo voy a refinar con cuadritos de texto y todo el adornito

Gracias por toda la ayuda