例: IsInCompositeApp property

このボタンをクリックすると、構成要素が複合アプリケーションの一部であるかどうかを示すメッセージボックスが表示されます。

Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
If (uiws.IsInCompositeApp) Then
	Msgbox "This is a component in a composite application"
Else
	Msgbox "This is not a component in a composite application"
End If
End Sub