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