Example: Accessing a view entry collection

Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim entry As NotesViewEntry
  Dim vc As NotesViewEntryCollection
  Dim parentV As NotesView
  Dim doc As NotesDocument
  Set db = session.CurrentDatabase
  Set view = db.GetView("By Category")
  Set entry = view.GetEntryByKey("Cars")
  Set vc = view.GetAllEntriesByKey("Cars")
  Set parentV = vc.Parent
  Set doc = entry.Document
  Call vc.FTSearch("Supra", 10)
  Messagebox "Count: " & vc.Count & Chr(10) _
  & "Parent view: " & parentV.Name & Chr(10) _
  & "Query: " & vc.query
End Sub