Imports Infragistics.Win.UltraWinSchedule ... Private Sub Suppress_Events_from_Being_Raised_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Me.UltraCalendarInfo1.EventManager.SetEnabled( _ CalendarInfoEventIds.BeforeAppointmentAdded, False) End Sub