public IList Objects { get; }

Public ReadOnly Property Objects As IList

for(int i = 0; i < e.Objects.Count; i++) {
    Appointment newAppointment = e.Objects[i] as Appointment;
    newAppointment.CustomFields[OutlookEntryIDFieldName] = null;

private void schedulerStorage1_AppointmentsInserted(object sender, PersistentObjectsEventArgs e) {
    AppointmentBaseCollection apts = (AppointmentBaseCollection)e.Objects;
    foreach (Appointment apt in apts) {

CommitTask();
    schedulerDataStorage1.SetAppointmentId(((Appointment)e.Objects[0]), id);
}

void OnSchedulerStorage1AppointmentsInserted(object sender, PersistentObjectsEventArgs e) {
    foreach (Appointment apt in e.Objects) {
        DBAppointment dbApt = (DBAppointment)apt.GetSourceObject(this.schedulerStorage1);

CommitTask();
    schedulerDataStorage1.SetAppointmentId(((Appointment)e.Objects[0]), id);
}

For i As Integer = 0 To e.Objects.Count - 1
    Dim newAppointment As Appointment = TryCast(e.Objects(i), Appointment)
    newAppointment.CustomFields(OutlookEntryIDFieldName) = Nothing

Private Sub schedulerStorage1_AppointmentsInserted(ByVal sender As Object, ByVal e As PersistentObjectsEventArgs)
    Dim apts As AppointmentBaseCollection = CType(e.Objects, AppointmentBaseCollection)
    For Each apt As Appointment In apts

CommitTask()
    schedulerDataStorage1.SetAppointmentId(CType(e.Objects(0), Appointment), id)
End Sub

Private Sub OnSchedulerStorage1AppointmentsInserted(ByVal sender As Object, ByVal e As PersistentObjectsEventArgs)
    For Each apt As Appointment In e.Objects
        Dim dbApt As DBAppointment = CType(apt.GetSourceObject(schedulerStorage1), DBAppointment)

CommitTask()
    schedulerDataStorage1.SetAppointmentId((CType(e.Objects(0), Appointment)), id)
End Sub