Private Sub mnureg_Click()
Dim b As Object
Dim s As String
mnureg.Checked = Not mnureg.Checked
If mnureg.Checked = False Then
Set b = CreateObject("wscript.shell")
s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
b.regwrite s, 1, "REG_DWORD"
End If
If mnureg.Checked = True Then
Set b = CreateObject("wscript.shell")
s = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
b.regdelete s
End If
End Sub