LoadKey

Attribute VB_Name = "Module1"
'esempio

'Call reg(HKEY_CLASSES_ROOT, "VisualBasic.Form", "")

'Restituisce il form di Visual Basic


Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Const HKEY_CURRENT_CONFIG = &H80000004
Private Const HKEY_DYN_DATA = &H80000005

Private Declare Function rkey Lib "advapi32.dll" _
Alias "RegCloseKey" (ByVal hKey As Long) As Long

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

Private Declare Function gkey Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, lpType As Long, _
lpData As Any, lpcbData As Long) As Long

Private Function reg(key1 As String, sect1 As String, _
valu As String)
Dim ckey, lbf, lf, stb As String
'Apre il registro

Call okey(key1, sect1, ckey)
'Estrae le info dal registro parte1

Call gkey(ckey, valu, 0, 0, 0, lbf)
stb = String(lbf, " ")
'Estrae le info dal registro parte2

Call gkey(ckey, valu, 0, 0, ByVal stb, lbf)
'queste sono le info per la ricerca

reg = stb
'chiude il registro

Call rkey(ckey)
End Function