The following example runs when the user clicks a button in a VBA user form. The procedure loops through a collection named Item Info and uses the Value property to set the value of the Item Color property for all data objects:
Private Sub UpdateItemColor_Click() Dim ItemCollection As DUOSObjects Dim ItemObject As DUOSObject Dim ItemProperties As DUOSProperties Dim ItemProperty As DUOSProperty Set ItemCollection = DUOSObjectsGet("Item Info") 'Update the item color for all objects in the collection For Each ItemObject In ItemCollection For Each ItemProperty In ItemObject.Properties If ItemProperty.Name = "Item Color" Then ItemProperty.Value = "Red" End If Next Next End Sub