Add / Replace XMP Structure Property Values

VB6 code showing how to add or replace structure property values.

    ' Create an instance of the XMP ActiveX and unlock it.
    Dim xmp As New ChilkatXmp
    success = xmp.UnlockComponent("anything for 30 day trial")
    If (success = 0) Then
        MsgBox "Failed to unlock"
        Exit Sub
    End If
    
    ' Create a new XML document that looks like this:
    '
    ' <x:xmpmeta xmlns:x="adobe:ns:meta/">
    ' <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
    ' </rdf:RDF>
    ' </x:xmpmeta>
    Dim xml As ChilkatXml
    Set xml = xmp.NewXmp()

    ' Add a new structure property, creating the rdf:Description for the schema.
    xmp.AddStructProp xml, "Iptc4xmpCore:CreatorContactInfo", "Iptc4xmpCore:CiAdrCity", "Wheaton"
    xml.SaveXml "newStruct1.xml"
    
    ' Add a new structure property to an already-existing structure in the XMP.
    xmp.AddStructProp xml, "Iptc4xmpCore:CreatorContactInfo", "Iptc4xmpCore:CiAdrRegion", "Illinois"
    xml.SaveXml "newStruct2.xml"
    
    ' Replace an existing structure property's value.
    xmp.AddStructProp xml, "Iptc4xmpCore:CreatorContactInfo", "Iptc4xmpCore:CiAdrRegion", "Nevada"
    xml.SaveXml "newStruct3.xml"