Оригинал Вы найдете ]]>здесь]]>

В виде создаем кнопу которая заменяет одно из его служебных полей $FormulaClass

Dim w As NotesUIWorkspace 
   Dim uiview As NotesUIView 
   Dim view As NotesView 
   Dim unid As String 
   Dim s As NotesSession 
   Dim db As NotesDatabase 
   Dim note As NotesDocument 
    
   Set w = New NotesUIWorkspace 
   Set uiview = w.CurrentView 
   Set view = uiview.View 
   Let unid = view.UniversalID 
   Set s = New NotesSession 
   Set db = s.CurrentDatabase 
   Set note = db.GetDocumentByUNID (unid) 
   Call note.ReplaceItemValue ("$FormulaClass", "2") 
   Call note.Save (True, True)

Что нам это даст - мы можем видеть элементы дизайна!

и так значения которые может принимать

Value Design Elements Shown
1 - Documents
2 - Unknown
4 - Forms and Subforms
8 - Views, Folders and Navigators
16 - Database Title
32 - Design Collection (overall information)
64 - ACL Note (in compiled format)
128 - Unknown
256 - Unknown
512 - Agents (Shared)
1024 - Shared Fields
1548 - Forms, Sub-forms, Views, Folders, Navigators, Agents (Shared), Shared Fields

Кстати - поддерживает множественные значения ( 4+128+256 = 388 )

Обсуждение Вы сможете найти ]]>здесь]]>