I am attempting to use the following code(see at bottom)
to read some registry values. However no matter what
I do these registy values return a "0" despite that
fact that they are strings and are not 0.
I know the code systax is correct because I am using
it else where in my application to read
the registry and it works perfectly.

Here is what I've done so far try and track it down:
I've tried changing the value to see if that had
any effect, none. I also rename the entry to
something else. I then created an indentical one
inside the registry and then read it.
It works find then. I don't get it how the
existing entry will not return it's
value, but a duplicate made entry will?

Private Sub Form_Load()
Dim strAppEventText As String
Dim strSecEventText As String
Dim strSysEventText As String

strAppEventText = GetSettingString(&H80000002, "SYSTEM\CurrentControlSet\Services\EventLog\Application\", "File", "current location")
ApplicationEventLogText.Text = strAppEventText

strSecEventText = GetSettingString(&H80000002, "SYSTEM\CurrentControlSet\Services\EventLog\Security\", "File", "current location")
SecurityEventLogText.Text = strSecEventText

strSysEventText = GetSettingString(&H80000002, "SYSTEM\CurrentControlSet\Services\EventLog\System\", "File", "current location")
SystemEventLogText.Text = strSysEventText

End Sub

Edited by jgabel on 02-24-2000 at 02:58 PM