Hi,

I am trying to create recurrence on a timetable. Is this possible? When I use the code below nothing shows up, including my single appointment item.

       ' Recur every four days

       Dim app As Appointment = Nothing

       Dim start As DateTime = DateTime.Now
       ' Recur every four days
       Dim Recurrence As Recurrence = New Recurrence
       Recurrence.Pattern = RecurrencePattern.Daily
       Recurrence.DailyRecurrence = DailyRecurrence.ByDayInterval
       Recurrence.Days = 4
       Recurrence.RecurrenceEnd = RecurrenceEnd.Never
       Recurrence.StartDate = start

       app = New Appointment
       app.HeaderText = "Recurring event"
       app.StartTime = start
       app.EndTime = DateAdd(DateInterval.Minute, 25, start)
       app.Recurrence = Recurrence
       Me.Calendar2.Schedule.Items.Add(app)

Thanks works like a gem!!!