Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... Private Sub AddButton1_Click(ByVal sender As Object, _ ByVal e As EventArgs) Handles AddButton1.Click ' Appointment オブジェクトを作成します。 Dim appt As Appointment = Me.CreateAppointment() ' Appointment をデータベースに追加し、未割り当ての ' リソースと関連付けます。 Me.WebScheduleSqlClientDataProvider1.AddActivity( _ appt, _ Me.WebScheduleInfo1.VisibleResources.UnassignedResource) End Sub