Examples: IsEmbeddedInsideWCT property
Clicking on this button will display a messagebox indicating where the application is running.
Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
If (uiws.IsEmbeddedInsideWCT) Then
Msgbox "I'm running in the Workplace Client"
Else
Msgbox "I'm running in the stand-alone Notes Client"
End If
End Sub