Extending product function with VBA : System Architect collections : OfCollection class : Clear
  
Clear
Clears the OfCollection object of all items in the collection.
Example
Dim i As Integer, oDef As Definition, coll As OfCollection
Set coll = oDef.GetPropertyAsCollection("Location Types")
coll.Clear oDef.Save
See also
OfCollection class