VB的RegOpenKey函数的问题

Private Sub Command1_Click()
rel = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE", hKey)
Print rel
End Sub

模块：

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

为什么返回值都是6

HKEY_LOCAL_MACHINE需要赋值常数:
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Sub Command1_Click()
HKEY_LOCAL_MACHINE = &H80000002
rel = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE", hKey)
Print rel
End Sub