Public Shared Sub AddDocumentCustomField(ByVal Name As String, ByVal Value As String)

            Dim acDoc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim acCurDb As Database = acDoc.Database
            Dim DbSib As DatabaseSummaryInfoBuilder = New DatabaseSummaryInfoBuilder
            Dim DbSi As DatabaseSummaryInfo = New DatabaseSummaryInfo
            Dim KeyNameExist As Boolean = False

            DbSi = acCurDb.SummaryInfo
            DbSi.CustomProperties.MoveNext()

            DbSib.Author = DbSi.Author
            DbSib.Comments = DbSi.Comments
            DbSib.HyperlinkBase = DbSi.HyperlinkBase
            DbSib.Keywords = DbSi.Keywords
            DbSib.LastSavedBy = DbSi.LastSavedBy
            DbSib.RevisionNumber = DbSi.RevisionNumber
            DbSib.Subject = DbSi.Subject
            DbSib.Title = DbSi.Title
            Dim cust As System.Collections.IDictionaryEnumerator = DbSi.CustomProperties
            While cust.MoveNext
                Dim itm As Object = cust.Current
                Dim key As String = itm.key
                Dim vl As String = itm.Value
                If key.ToLower = Name.ToLower Then
                    KeyNameExist = True
                    DbSib.CustomPropertyTable.Add(key, Value)
                Else
                    DbSib.CustomPropertyTable.Add(key, vl)
                End If
            End While
            If KeyNameExist = False Then
                DbSib.CustomPropertyTable.Add(Name, Value)
            End If

            acCurDb.SummaryInfo = DbSib.ToDatabaseSummaryInfo()
            DbSi = Nothing
            DbSib = Nothing

        End Sub

        Public Shared Function GetDocumentCustomField(ByVal Name As String) As String

            Dim strReturnValue As String = ""

            Dim acDoc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument

            Dim acCurDb As Database = acDoc.Database
            Dim DbSi As DatabaseSummaryInfo = New DatabaseSummaryInfo
            Dim KeyNameExist As Boolean = False

            DbSi = acCurDb.SummaryInfo
            DbSi.CustomProperties.MoveNext()

            Dim cust As System.Collections.IDictionaryEnumerator = DbSi.CustomProperties
            While cust.MoveNext
                Dim itm As Object = cust.Current
                Dim key As String = itm.key
                Dim vl As String = itm.Value
                If key.ToLower = Name.ToLower Then
                    KeyNameExist = True
                    strReturnValue = vl
                    Exit While
                End If
            End While

            Return strReturnValue

        End Function

    End Class