_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

  sValues = Reg_GetAllKeys(HKEY_CURRENT_USER, _
    "Software\Microsoft\Windows\CurrentVersion\Run")

Dim sValues As Variant

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Private Sub Command1_Click()
  Dim sValues As Variant
  Dim I As Integer
 
'  sValues = Reg_GetAllKeys(HKEY_CURRENT_USER, _
'    "Software\Microsoft\Windows\CurrentVersion\Run")
'
'  For I = 0 To UBound(sValues)
'    List1.AddItem sValues(I)
'  Next I
 
sValues = Reg_GetAllKeys(HKEY_LOCAL_MACHINE, _
    "SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
 
  For I = 0 To UBound(sValues)
    List1.AddItem sValues(I)
  Next I
 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Public Const HKEY_LOCAL_MACHINE = &H80000002

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de