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

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

Var 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