dim c as new CalCalendarStoreMBS

// set the date range where we look for event
dim sd as new date(2016,6,7,0,0,0)
dim ed as new date(2016,6,7,23,59,59)

// look for an event on that date
dim a() as CalEventMBS = c.events(sd,ed, c.calendars)
dim e as CalEventMBS = a(1)

// show notes
MsgBox e.notes

// change it
e.notes = "Just a test"

// check again
MsgBox e.notes

// Save
dim error as NSErrorMBS
dim ok as Boolean = c.saveEvent(e, c.CalSpanThisEvent, error)

if ok then
  MsgBox "OK"
elseif error <> nil then
  MsgBox error.LocalizedDescription
else
  MsgBox "Failed."
end if

// init
dim s as new CalCalendarStoreMBS

// Get date range for today
dim Startdate as new date
dim Enddate as new date

Startdate.hour = 0
Startdate.Minute = 0
Startdate.Second = 0

Enddate.hour = 23
Enddate.minute = 59
Enddate.second = 59

// Query events on all calendars
dim events() as CalEventMBS = s.events(Startdate,Enddate)

// Display result
dim lines(-1) as string
for each e as CalEventMBS in events
  lines.Append e.Title
next

MsgBox Join(lines,EndOfLine)

// start a connection to the calendar database
dim s as new CalCalendarStoreMBS

// needed for the error details
dim e as NSErrorMBS

// create a new calendar event
dim c as new CalEventMBS

dim calendars() as CalCalendarMBS = s.calendars

// set properties
c.Title="new Event"
c.startDate=new date
c.calendar=calendars(0) // add to first calendar

dim d as new date
d.hour=d.hour+1
c.endDate=d

// save event
call s.saveEvent(c,s.CalSpanAllEvents, e)
if e<>nil then
  MsgBox e.localizedDescription
else
  // show the UID
  MsgBox "New event was created with UID: "+c.uid
end if