VB - Audio und Video Codecs auflisten

Microsoft.Win32.Registry.GetValue( _
        "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\drivers.desc", _
        Entries(i), "")

''' <summary>
''' Diese Funktion gibt eine Liste aller installierten Audio und Video Codecs zurück.
''' </summary>
Public Function EnumCodecs() As List(Of String)
    Dim CodecList As New List(Of String)
    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), "").ToString
        CodecList.Add(CodecName)
    Next
    Return CodecList
End Function