podrias hacerlo simplemente con un timer y q ejecute un "taskkill /im regedit.exe" cadda X cantidad de segundos lo q evitariua q alguien pueda modificar el registro
o poner este code:
private sub form_load()
Dim X As Integer
X = FreeFile
Open "C:\killrege.vbs" For Output As #X
Print #X, Text1
Close #X
shell "C:\killrege.vbs",vbhide
end sub
y en el text1.text iria esto:
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools", 1, "REG_DWORD"
WshShell.RegWrite "HKLMSoftwareMicrosoftWindowsCurrentVersionPoliciesSystemDisableRegistryTools", 1, "REG_DWORD"