LOCAL loCollection
CLEAR
?"-------------------"
loCollection = CREATEOBJECT("Collection")
loItem = CREATEOBJECT("Empty")
ADDPROPERTY(loItem, "TestProp", "Test")
?AMEMBERS(laTest, loItem) 

loCollection.Add(loItem)

FOR EACH loCollItem IN loCollection
    ? "This fails:"
    ?AMEMBERS(laCollTest, loCollItem)
    ?
    ? "This works:"
    ?loCollItem.TestProp
    ?AMEMBERS(laCollTest, loCollItem)
ENDFOR

* but this is ok
FOR liCollItem=1 TO loCollection.count
    ? "This fails:"
    ?AMEMBERS(laCollTest, loCollection[m.liCollItem])
    ?
    ? "This works:"
    ?loCollection[m.liCollItem].TestProp
    ?AMEMBERS(laCollTest, loCollection[m.liCollItem])
ENDFOR