Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... Private Function CreateAppointment() As Appointment 'Create an empty Activity owned by the WebScheduleInfo. Dim appt As New Appointment(Me.WebScheduleInfo1) 'Set pertinent properties on the Activity. appt.Subject = "My Thirty-Minute Appointment" appt.Duration = New TimeSpan(0, 30, 0) ' Set Key property to a unique value on each appointment. appt.Key = "100" 'Set ResourceKey property to link Activity with organizing Resource. appt.ResourceKey = Me.WebScheduleInfo1.VisibleResources.UnassignedResource.Key 'Return the newly initialized Activity. CreateAppointment = appt End Function