Dim session As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Set agent = session.CurrentAgent
If agent.IsWebAgent Then
 Messagebox "This is a Web agent."
Else
 Messagebox "This is not a Web agent."
End If

See Also

IsWebAgent property

Glossary