I did figure it out, here is a snapshot of the code
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Dim DB As Database = Application.DocumentManager.MdiActiveDocument.Database
Dim objSumBuilder As New DatabaseSummaryInfoBuilder
Try
objSumBuilder.Author = txtDrafter.Text
objSumBuilder.Title = txtCustomer.Text
objSumBuilder.CustomProperties.Item("Office") = "test"
objSumBuilder.CustomProperties.Item("Checker") = "test1"
DB.SummaryInfo = objSumBuilder.ToDatabaseSummaryInfo
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Exception")
Finally
objSumBuilder = Nothing
End Try
the custom properties I just called the key and set the value.
It worked, I did learn something - it writes over the top so if there is information there you need to make sure you add it back in.
pat
End Sub