Examples: RegionDoubleClick event

This example displays the alias name of the view if the database designer double-clicks a date in the calendar.

Sub Regiondoubleclick(Source As Notesuiview)
  Dim s As New NotesSession
  Dim db As NotesDatabase
  Set db = s.CurrentDatabase
  If db.CurrentAccessLevel >= ACLLEVEL_DESIGNER Then
    Messagebox Source.ViewAlias, , "Alias name of this view"
  End If
End Sub