Examples: IsInCompositeApp property

Clicking on this button will display a messagebox indicating if the component is part of a composite application.

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