Hi Barry,
I have done a test yesterday, but the DB's type is still not change. Please refer the below coding.
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
doc.~$Flags = "Flag"
doc.~$Flags = doc.~$Flags(0) & "B"
Call doc.Save (True, False)
End Sub
The coding only add a $Flags field to the document, and give it's value "FlagB", not change the DB's type. Why?