Не работает RegOpenKeyEx - VB

Формулировка задачи:

Почему вызов RegOpenKeyEx возвращает 2? То есть это ошибка ERROR_FILE_NOT_FOUND. Ветка в реестре существует. Программа REG.EXE в составе Windows, корректно работает и выдаёт нужное значение:reg query "HKEY_CURRENT_USER\Control Panel\Desktop" /v "HungAppTimeout" Может прав не хватает, хотя запускаю от имени Администратора. Пробовал на WinXP(x32) и Win7(x64). Почему этот код не работает?

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 Declare Function RegQueryValueEx _
                 Lib "advapi32.dll" _
                 Alias "RegQueryValueExA" _
                 (ByVal hKey As Long, _
                 ByVal lpValueName As String, _
                 ByVal lpReserved As Long, _
                 lpType As Long, _
                 lpData As Any, _
                 lpcbData As Long) As Long

Const HKEY_CLASSES_ROOT As Long = &H80000000
Const HKEY_CURRENT_USER As Long = &H80000001
Const HKEY_LOCAL_MACHINE As Long = &H80000002
Const HKEY_USERS As Long = &H80000003
Const HKEY_CURRENT_CONFIG As Long = &H80000005
 
Const STANDARD_RIGHTS_ALL = &H1F0000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const SYNCHRONIZE = &H100000
'Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))
Const KEY_ALL_ACCESS = &H2003F

Private Sub Form_Load()
   Dim isBack As Long, lRet As Long, isData As String, isSizeData As Long
   Dim isString As String
   
   isData = Space(255)
   isSizeData = Len(isData)
         
   lRet = RegOpenKeyEx(HKEY_CURRENT_USER, _
                      "HKEY_CURRENT_USER\Control Panel\Desktop", _
                      0, _
                      KEY_ALL_ACCESS, _
                      isBack)
      
   MsgBox lRet
   
   lRet = RegQueryValueEx(isBack, _
                         "HungAppTimeout", _
                         0, _
                         KEY_QUERY_VALUE, _
                         isData, _
                         isSizeData)
   
   MsgBox lRet
   
   Unload Me
End Sub

Решение задачи: «Не работает RegOpenKeyEx»

textual
                            Листинг программы 
                        

                            Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExW" _
               (ByVal hKey As Long, _
               ByVal lpValueName As Long, _
               ByVal lpReserved As Long, _
               ByRef lpType As Long, _
               ByRef lpData As Any, _
               ByRef lpcbData As Long) _
      As Long
                        