Private Sub Command2_Click()
Dim hKey As Long
RegOpenKey HKEY_CURRENT_USER, "Software\microsoft\Windows\Current version\Policies\system", hKey
RegDeleteValue hKey, "DisableRegistryTools"
MsgBox "注册表已解锁!"
RegCloseKey hKey
End Sub
上面代码的作用是要来实现解锁注册表功能的，但不知错在哪里就是解锁不了，请大家来帮忙指出错误，谢谢。。