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

// needed for the error details
dim e as NSErrorMBS

// create a new event
dim c as new CalEventMBS

// set properties
dim calendars() as CalCalendarMBS = s.calendars
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
  MsgBox "New event was created."
end if

Dim d As new date
Dim tz As NSTimeZoneMBS = NSTimeZoneMBS.localTimeZone
Dim e As New CalEventMBS

e.setEndDate d, tz

Dim Today As New date

Dim cal As New CalCalendarStoreMBS
Dim e As New CalEventMBS
Dim error As NSErrorMBS

Dim sDate As New Date
Dim eDate As New Date

sDate.Year=Today.Year
sDate.Month=Today.Month
sDate.Day=Today.Day
sDate.Hour=8
sDate.Minute=0
sDate.Second=0

eDate.Year=Today.Year
eDate.Month=Today.Month
eDate.Day=Today.Day
eDate.Hour=8
eDate.Minute=15
eDate.Second=0


Dim tz As NSTimeZoneMBS = NSTimeZoneMBS.systemTimeZone
e.setStartDate(sDate, tz)
e.setEndDate(eDate, tz)
e.Title = "Hello World"
e.calendar = cal.calendarWithTitle("Private") // put valid calendar name here

If cal.saveEvent(e,cal.CalSpanAllEvents,error) Then
  'MainWindow.NotePlayer1.Instrument=Globals.RDV_SOUND
  'MainWindow.NotePlayer1.PlayNote(60,60)
  MsgBox "OK"
Else
  MsgBox "Failed: "+error.localizedDescription
End If