Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... ' 新しい予定を作成して、件名と開始日を設定します。 Dim appointment As New Appointment(Me.WebScheduleInfo1) appointment.Subject = "My Recurring Appointment" appointment.StartDateTime = New SmartDate(DateTime.Now) ' Key プロパティを各予定の一意の値に設定します。 appointment.Key = "100" ' 作成したばかりの予定から recurrence オブジェクトを作成します。 appointment.CreateRecurrence() ' 予定の recurrence オブジェクトを表すために ' 新しい recurrence オブジェクトを作成します。 Dim recurrenceObject As Recurrence = appointment.Recurrence recurrenceObject.Period = RecurrencePeriod.Daily recurrenceObject.PeriodMultiple = 1 recurrenceObject.MaxOccurrences = 3 ' 予定をデータ プロバイダに追加します。 Me.WebScheduleOleDbProvider1.AddActivity(appointment, Me.WebScheduleInfo1.ActiveResource)