Dim oDef as Definition, coll as OfCollection, i as integer
Set coll = oDef.GetPropertyAsCollection("Operations")
Debug.Print coll.Name
For i = 1 to coll.Count
Debug.Print coll.Item(i).Name
Next i