例: ProhibitDesignUpdate property

次のコードは、エージェントの更新ステータスを切り替えます。

Sub Initialize
	Dim session As New NotesSession
	Dim agent As NotesAgent
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	Set agent = db.GetAgent("test")
	If agent.ProhibitDesignUpdate Then
		agent.ProhibitDesignUpdate = False
	Else
		agent.ProhibitDesignUpdate = True
	End If
	agent.Save
End Sub