Dim CodecName As String
        Dim Entries() As String = _
          Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
        "SOFTWARE\Microsoft\Windows" & _
        "NT\CurrentVersion\drivers.desc").GetValueNames()
        For i As Integer = 0 To Entries.Length - 1
            CodecName = Microsoft.Win32.Registry.GetValue( _
            "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows" & _
            "NT\CurrentVersion\drivers.desc", _
            Entries(i), "")
            ComboBox1.Items.Add(CodecName)
        Next

Gruss Caddy