调用API变更注册表--帮我看看那里写错了
Const REG_SZ = 1 ' Unicode nul terminated string
Const REG_BINARY = 3 ' Free form binary
Const HKEY_CURRENT_USER = &H80000001
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 Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long


Private Sub Form_Click()
Dim Rets As String
RegOpenKeyEx HKEY_CURRENT_USER, "Software\Microsoft\Internet Account Manager\Accounts\00000002", 0, KEY_ALL_ACCESS, phk
Rets = "uhn@hotmail.com"
RegSetValueEx phk, "POP3 User Name", 0, REG_SZ, ByVal Rets, Len(Rets)
RegCloseKey phk
End Sub

执行以后没有错误提示，但是注册表里面的值没有变，帮我看看那里写错了

[解决办法]
楼主代码没贴全,不好调试,难怪回答的人这么少
应该不是楼上说的原因吧