// 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
dim c as new CalEventMBS

dim StartDate as date = new date
StartDate.day = StartDate.day +1 // start tomorrow

dim calendars() as CalCalendarMBS = s.calendars

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

dim EndDate as new date(StartDate) // one hour after start
EndDate.hour = EndDate.hour + 1
c.endDate=EndDate

dim a as new CalAlarmMBS // Send email one hour earlier
a.action = a.CalAlarmActionEmail
a.relativeTrigger = -3600
a.emailAddress="some@email.address"

c.addAlarm a // attach an alarm

// save event
call s.saveEvent(c,s.CalSpanAllEvents, e)
if e<>nil then
  MsgBox e.localizedDescription
else
  MsgBox "New event was created."
end if