Create New XMP Document

Generates a new XML document containing the boilerplate necessary for a new XMP metadata file.

     ' 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()
    
    ' Save the XML so we can verify...
    xml.SaveXml "boilerplate.xml"