Private Sub Command1_Click()Shell ("cmd.exe /c reg add HKcU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v disabletaskmgr /t REG_DWORD /d 0 /f"), vbHideShell ("cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\system /v disabletaskmgr /t REG_DWORD /d 0 /f"), vbHideMsgBox ("Administrador de tareas habilitado")End SubPrivate Sub Command2_Click()Shell ("cmd.exe /c reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f"), vbHideShell ("cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f"), vbHideMsgBox ("regedit habilitado")End SubPrivate Sub Command3_Click()EndEnd Sub