Update String Property in XMP Embedded in JPG and Save

Load JPG, access XMP metadata, update a simple string property, and save the JPG with the updated XMP.

    ' Visual Basic Example to load a JPG and modify a simple string property.
    ' The AddSimpleStr method updates a property if it already exists.
    
    ' Add references to these ActiveX components in your VB6 project:
    ' Chilkat XML
    ' Chilkat XMP
    ' The AgencyPhotographer-Example.jpg test JPG can be downloaded from
    ' http://www.chilkatsoft.com/testData/AgencyPhotographer-Example.jpg

    ' 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("AgencyPhotographer-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
        
    ' Update an already-existing Photoshop property.
    xmp.AddSimpleStr xml, "photoshop:Headline", "This is the new headline"
    
    ' Save the JPG with the update.
    xmp.SaveAppFile "out.jpg"
    
    ' IMPORTANT: After saving the JPG, the XML object should be discarded.  If you
    ' wish to continue editing the embedded JPG, you must re-fetch the XML object:
    Set xml = xmp.GetEmbedded(0)