DevX.com содержит пример того, как читать реестр с помощью VB6.
Вам нужно будет добавить эту константу: Const HKEY_LOCAL_MACHINE = &H80000002
... она отсутствует в образце.
Вы хотите прочитать значение EnableLUA
ключа HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System
. 1 == включено.
Есть также хороший пример на freevbcode.com .