' 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
' built-in properties
Console.WriteLine(vbLf & "Built-in Properties")
For Each [property] As KeyValuePair(Of String, PropertyValue) In pptMetadata
If pptMetadata.IsBuiltIn([property].Key) Then
Console.WriteLine("{0} : {1}", [property].Key, [property].Value)
End If