Private Sub Command1_Click() Dim RegBot As New cRegistry Dim boRet As Boolean Dim ListeCles() As String Dim NbrCles As Long Dim iCmpt As Long With RegBot .ClassKey = HKEY_LOCAL_MACHINE .SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run" boRet = .EnumerateValues(ListeCles, NbrCles) For iCmpt = 1 To NbrCles .ValueKey = ListeCles(iCmpt) List1.AddItem ListeCles(iCmpt) & " = " & .Value Next iCmpt End With End Sub