Cacher is the code snippet organizer for pro developers

' For complete examples and data files, please go to https://github.com/groupdocsmetadata/GroupDocs_Metadata_NET
' initialize PptFormat
Dim pptFormat As New PptFormat(Common.MapSourceFilePath(filePath))

' initialize PptMetadata
Dim pptMetadata As PptMetadata = pptFormat.DocumentProperties

Console.WriteLine(vbLf & "Custom Properties")
For Each keyValuePair As KeyValuePair(Of String, PropertyValue) In pptMetadata
    ' check if property is not built-in
    If Not pptMetadata.IsBuiltIn(keyValuePair.Key) Then
        ' get property value
        Dim propertyValue As PropertyValue = pptMetadata(keyValuePair.Key)
        Console.WriteLine("Key: {0}, Type:{1}, Value: {2}", keyValuePair.Key, propertyValue.Type, propertyValue)
    End If