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