Sub Queryopen(Source As Notesuiview, Continue As Variant)
 Dim view As NotesView
 Set view = Source.View
 If view.IsCalendar Then
   If Messagebox ("Do you want to continue?", _
   MB_ICONQUESTION, _
   "Calendar view") = IDNO Then
     Continue = False
   End If
 End If
End Sub