Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.UltraWeekView1.AppointmentEditor = New ColorPickerEditor()
Me.UltraWeekView1.NoteEditor = New ColorPickerEditor()
Me.UltraMonthViewSingle1.AppointmentEditor = New ColorPickerEditor()
Me.UltraMonthViewSingle1.NoteEditor = New ColorPickerEditor()
Me.UltraWeekView1.CalendarInfo.Appointments.Add(DateTime.Now, DateTime.Now.AddMinutes(30), "Red")
Me.UltraWeekView1.CalendarInfo.Notes.Add(DateTime.Today, "Green")
Me.UltraMonthViewSingle1.CalendarInfo.Appointments.Add(DateTime.Now, DateTime.Now.AddMinutes(30), "Blue")
Me.UltraWeekView1.CalendarInfo.Notes.Add(DateTime.Today, "Yellow")
End Sub