Cacher is the code snippet organizer for pro developers

' For complete examples and data files, please go to https://github.com/groupdocs-metadata/GroupDocs.Metadata-for-.NET
' initialize TiffFormat
Dim tiff As New TiffFormat(Common.MapSourceFilePath(filePath))

' get xmp
Dim xmpPacket As XmpPacketWrapper = tiff.GetXmpData()

If xmpPacket IsNot Nothing Then
	' show XMP data
	Dim xmpProperties As XmpProperties = tiff.GetXmpProperties()

	' show XMP data
	For Each key As String In xmpProperties.Keys
		Try
			Dim xmpNodeView As XmpNodeView = xmpProperties(key)
			Console.WriteLine("[{0}] = {1}", xmpNodeView.Name, xmpNodeView.Value)
		Catch
		End Try
	Next
Else
	Console.WriteLine("No XMP data found.")
End If