Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... Private Sub AddButton1_Click(ByVal sender As Object, _ ByVal e As EventArgs) Handles AddButton1.Click ' Create the Appointment object. Dim appt As Appointment = Me.CreateAppointment() ' Add the Appointment to the database, associating ' it with the Unassigned Resource. Me.WebScheduleSqlClientDataProvider1.AddActivity( _ appt, _ Me.WebScheduleInfo1.VisibleResources.UnassignedResource) End Sub