// searches for the birthday calendar and than lists all birthdays in the next month

dim cals(-1) as CalCalendarMBS
dim a() as CalCalendarMBS
dim i as Integer
dim cal as CalCalendarMBS
dim sd,ed as date
dim ea() as CalEventMBS
dim e as CalEventMBS

dim c as new CalCalendarStoreMBS

a=c.calendars
for each cal in a
  MsgBox "Calendar: "+cal.Title
  if cal.type=cal.CalCalendarTypeBirthday then
    cals.Append cal
  end if
next

sd=new date
ed=new date
ed.Month=sd.Month+1

ea=c.events(sd,ed,cals)

for each e in ea
  MsgBox "Event: "+e.Title
next