<VB.NET>
Dim doorTypeCollector = New FilteredElementCollector(m_rvtDoc)
doorTypeCollector.OfClass(GetType(FamilySymbol))
doorTypeCollector.OfCategory(BuiltInCategory.OST_Doors)
Dim doorTypes As IList(Of Element) =
doorTypeCollector.ToElements
</VB.NET>