ops scusa, cercavi vb... vabbhe tradotto con il traduttore :
codice:
Dim list As New List(Of SortedList(Of String, Object))()
For Each obj As ManagementObject In New ManagementObjectSearcher("SELECT * FROM Win32_CodecFile WHERE Group='Audio'").[Get]()
	Dim listItem As New SortedList(Of String, Object)()
	For Each [property] As PropertyData In obj.Properties
		listItem.Add([property].Name, obj([property].Name))
	Next
	list.Add(listItem)
Next
poi le liste non è che servano, era solo per vedere le proprietà che ti servono...