Imports RevisionManager
Imports System.Runtime.InteropServices

Module Example

    Sub Main()
        Dim objPropertySets As SolidEdgeFileProperties.PropertySets = Nothing
        Dim objProperties As SolidEdgeFileProperties.Properties = Nothing
        Dim objProperty As SolidEdgeFileProperties.Property = Nothing

        Try
            ' Create a new instance of PropertySets.
            objPropertySets = New SolidEdgeFileProperties.PropertySets
            objPropertySets.Open("C:\Part1.par", False)
            objProperties = objPropertySets.Item("Custom")
            objProperty = objProperties.Add("My Custom Property", "My Custom Value")
            objPropertySets.Save()
            objPropertySets.Close()
        Catch ex As Exception
            ' Write any errors to console.
            Console.WriteLine(ex.Message)
        Finally
            ' Release COM Objects.
            If Not (objProperties Is Nothing) Then
                Marshal.ReleaseComObject(objProperties)
                objProperties = Nothing
            End If
            If Not (objPropertySets Is Nothing) Then
                Marshal.ReleaseComObject(objPropertySets)
                objPropertySets = Nothing
            End If
        End Try
    End Sub

End Module