Get XMP Structure Member Property Names

Retrieves and displays the property names for a given structure property in an embedded XMP.

    ' List the property names of the members within a structure.
    ' This example retrieves the members of Iptc4xmpCore:CreatorContactInfo
    ' Note: This does not retrieve all possible members of a structure in a schema,
    ' only the members that are currently present within the structure in
    ' the loaded XMP.
    
    ' 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
    
    Dim sa As CkStringArray
    Set sa = xmp.GetStructPropNames(xml, "Iptc4xmpCore:CreatorContactInfo")
    If (sa Is Nothing) Then
        MsgBox "property not found"
        Exit Sub
    End If
    
    ' Display the items within the array.
    n = sa.Count
    For i = 0 To n - 1
        List1.AddItem sa.GetString(i)
    Next