このボタンをクリックすると、アプリケーションが実行されているかどうかを示すメッセージボックスが表示されます。
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