Dim _List As New List(Of Tuple(Of Double, String, String, Double, Integer))
For Each _ObjID In _Objects
Dim _CurrentObject As Object= _Trans.GetObject(_ObjID, OpenMode.ForRead)
_ObjProperties = New Tuple(Of Double, String, String, Double, Integer)(_CurrentObject.Prop1, _CurrentObject.Prop2, _CurrentObject.Prop3, _CurrentObject.Prop4, _CurrentObject.Prop5)
_List.Add(_ObjProperties)
Next
(1.00, "A", "B", 100.00, 1)
(2.00, "A", "B", 100.00, 1)
(1.00, "A", "B", 100.00, 1)
(9.00, "C", "A", 100.00, 1)
(1.00, "C", "A", 100.00, 1)
(2.00, "A", "B", 100.00, 1)
(1.00, "A", "B", 100.00, 1)
(9.00, "C", "A", 100.00, 1)
(1.00, "A", "B", 300.00, 3)
(2.00, "A", "B", 200.00, 2)
(9.00, "C", "A", 200.00, 2)
(1.00, "C", "A", 100.00, 1)