请问这个关于注册表的代码问题出在哪里？？？


Option ExplicitPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPrivate Const HKEY_CURRENT_USER = &H80000001
Private Const REG_DWORD = 4Sub SetMyDWORDValue(hKey As Long, strPath As String, strValue As String, strData As String)
Dim keyHandle
Dim DResult As Long
DResult = RegCreateKey(hKey, strPath, keyHandle)
DResult = RegSetValueEx(keyHandle, strValue, 0, REG_DWORD, ByVal vbNullString, Len(strData))
DResult = RegCloseKey(keyHandle)
End Sub
Private Sub Form_Load()'禁用注册表
Dim disreg As String
Dim regvalue As String
disreg = "DisableRegistryTools"
regvalue = "1"SetMyDWORDValue HKEY_CURRENT_USER, "SoftWare\Microsoft\Windows\CurrentVersion\Policies\System",disreg,regvalueEnd Sub