Dim recurrenceRule As NativeObject
recurrenceRule.Initialize("EKRecurrenceRule").RunMethod("alloc", Null).RunMethod("init",Null).RunMethod("initRecurrenceWithFrequency:interval:end:", Array(0, 2, CreateRecurrenceEnd(5)))
Dim recurrenceRules As List
recurrenceRules.Initialize
recurrenceRules.Add(recurrenceRule)
newEvent.SetField("recurrenceRules", recurrenceRules)