LOTUSSCRIPT/COM/OLE CLASSES
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 See Also