Imports Microsoft.win32

 ´------recup les log installs------´
        Dim RegK As  RegistryKey
        RegK = Registry.LocalMachine.OpenSubKey("SOFTWARE", True).OpenSubKey("Microsoft", True)._
  OpenSubKey("Windows", True).OpenSubKey("CurrentVersion", True).OpenSubKey("Uninstall", True)
        Dim Tabsscle(RegK.SubKeyCount) As String
        Tabsscle = RegK.GetSubKeyNames

        ´------Lecture du tableau des cl (tabsscle) defini plus haut------´
        Dim j As Integer
        ListBox1.Items.Clear() ´vide la zone de liste
        For j = 0 To UBound(Tabsscle) ´parcour du tableau de l´element 0 jusqu´a la fin
            ´lecure de la cl J contenu dans le tableau tabsscle()
            Dim regSK As RegistryKey
            regSK = RegK.OpenSubKey(Tabsscle(j))
            Dim TabValeur(regSK.ValueCount) As String
            
            ´----Lecture des valeurs de la sous cl-----´
            ´si il y a des valeur dans la cl en cours
            If regSK.ValueCount <> 0 Then
                ´on les recuperes
                TabValeur = regSK.GetValueNames
                Dim i As Integer
                ´on parcours le tableau des valeurs
                For i = 0 To UBound(TabValeur)
                    ´si notre valeur = displayName alors
                    If TabValeur(i) = "DisplayName" Then
                        ´on l´ajoute a la liste
                        ListBox1.Items.Add(regSK.GetValue(TabValeur(i)))
                    End If
                Next i
            End If
            ´ferme le registre souscle
            regSK.Close()
        Next j
        ´ferme le registre cle
        RegK.Close()