Imports Microsoft.Win32
    
´recupere le chemin de la premire cl pour lire le nom de la carte vido
Dim Reg As RegistryKey
Dim chaine As String
Reg = Registry.LocalMachine.OpenSubKey("HARDWARE", True).OpenSubKey("DEVICEMAP", True) _
.OpenSubKey("VIDEO", True)
chaine = Reg.GetValue("devicevideo0")
Reg.Close()

       ´///decoupage des cles et sous cles
       ´On commence par compter combien  de cle et de sous cle dans la chaine
        Dim tabcle() As String
        Dim i, cpt As Integer
        i = 0
        Dim car As String = ""
        For i = 1 To Len(chaine)
            If Mid(chaine, i, 1) = car Then
                cpt = cpt + 1
            End If
        Next
       ´redimension du tableau des cles
        ReDim tabcle(cpt)

       ´mise en mmoire des cles    
        Dim pos, j As Integer
        pos = InStr(chaine, "", CompareMethod.Binary)
        Do While pos <> 0
            If pos <> 1 Then ´si le premier caractre est "" on ne le prend pas
                j = j + 1
                tabcle(j) = Mid(chaine, 1, pos - 1)

            End If
            chaine = Mid(chaine, pos + 1)
            pos = InStr(chaine, "", CompareMethod.Binary)
        Loop
       ´la derniere cle
        tabcle(j + 1) = chaine

       ´Lecture du tableau des cles & sous cles 
        Dim reg2 As RegistryKey

´concatene les cles et sous cles (on pourrait faire beaucoup mieux)
reg2 = Registry.LocalMachine.OpenSubKey(UCase(tabcle(3)), True).OpenSubKey(tabcle(4), True) _
.OpenSubKey(tabcle(5), True).OpenSubKey(tabcle(6), True).OpenSubKey(tabcle(7), True) _
.OpenSubKey(tabcle(8), True)
       
´recupere la valeur
textbox1.Text = reg2.GetValue("Device Description")