请看示例:
Dim hKey As Long, ret As Long, Name As String, Idx As Long 
List1.Clear 
Idx = 0 
Name = String(256, Chr(0)) 
Do 
ret = RegEnumKey(HKEY_CURRENT_USER, Idx, Name, Len(Name)) 
If ret = 0 Then 
List1.AddItem Left(Name, InStr(Name, Chr(0)) - 1) 
Idx = Idx + 1 
End If 
Loop Until ret <> 0