Calendars.Initialize
Dim no As NativeObject = store
Dim Cals As List = no.GetField("store").RunMethod("calendarsForEntityType:", Array(0)) '0 = events, 1 = reminders
For Each Cal As NativeObject In Cals
Calendars.Put(Cal.GetField("title"), Cal)
Next
Log(Calendars)
3. Set the calendar property when you create a new event:
B4X:
Dim ev As CalendarEvent = store.CreateEvent
ev.Title = "New Event"
Dim no As NativeObject = ev
no.SetField("calendar", Calendars.Get("Calendar")) 'The calendar name is Calendar in this case.