Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... Private Sub RemoveButton1_Click(ByVal sender As Object, _ ByVal e As EventArgs) Handles RemoveButton1.Click '削除する Appointment オブジェクトを見つけ出します。 Dim appt As Appointment = Me.FindAppointment() 'データベースからその Appointment を削除します。 Me.WebScheduleSqlClientDataProvider1.RemoveActivity(appt) End Sub