check if UAC is enabled with VB6

i开发者_如何学Cs it possible to check if UAC is enabled with VB6 on win7 and vista? i know it has to do with reading a value in the registry, i have see .net versions, but i need a vb6 sample code

thanks

---

DevX.com has an example of how to read the registry using VB6.

You'll have to add this constant: Const HKEY_LOCAL_MACHINE = &H80000002...it's missing from the sample.

You'll want to read the HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System key's EnableLUA value. 1 == enabled.

There's also a decent example at freevbcode.com.