I changed Form_Load as shown below:
Private Sub Form_Load()
HKEY_LOCAL_MACHINE = &H80000002
KEY_READ = &H20019
RegOpenKeyEx HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", _
0&, KEY_READ, hKey
RegQueryValueEx hKey, "CommonFilesDir", 0, 0, sValue, iTemp
End Sub
Now, I'm getting a non-zero value for hKey, but still I'm getting nothing for sValue. Anyone have any ideas?
Regards, Mike
modified on Tuesday, January 22, 2008 10:49:23 AM