The following example returns an existing collection named “CustomerCollection” using the DUOSObjectsGet method. Once the collection is created, the procedure can add a data object using the collection’s Item property, then assign properties and property values for the data object:
Dim CustomerCollection As DUOSObjects Dim CustomerObject As DUOSObject 'Return the collection Set CustomerCollection to DUOSObjectsGet("CustomerCollection") 'Create a data object in the collection with a unique object ID Set CustomerObject = CustomerCollection.Item("AARONFIT001") 'Create properties for this object CustomerObject.Properties.Item("URL Address") = _ "www.fitzelectric.com" CustomerObject.Properties.Item("Contact E-Mail Address") = _ "afitz@contoso.com"