Get Structure Member Property

Sample source code to retrieve the value of a structure member from an embedded XMP.

    ' Retrieve the value of one member of an XMP structure property.
    
    ' 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
    
    ' Load a JPG file.
    success = xmp.LoadAppFile("IndependantPhotographer-Example.jpg")
     If (success = 0) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
   
   ' Get the 1st (and only) XMP in this JPG.
    Dim xml As ChilkatXml
    Set xml = xmp.GetEmbedded(0)
    If (xml Is Nothing) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
    
    ' Get the Iptc4xmpCore:CiAdrCity property within the
    ' Iptc4xmpCore:CreatorContactInfo structure.
    Dim propVal As String
    propVal = xmp.GetStructValue(xml, "Iptc4xmpCore:CreatorContactInfo", "Iptc4xmpCore:CiAdrCity")
    
    If Len(propVal) = 0 Then
        MsgBox "property not found"
        Exit Sub
    End If
    
    ' Display the retrieved value.
    List1.AddItem propVal