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 Lotus Notes Client" End If End Sub