Imports Infragistics.Win.UltraWinSchedule
Private Sub Showing_Multiple_Owners_on_WinDayView_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.UltraCalendarInfo1.Owners.UnassignedOwner.Visible = False
Me.UltraCalendarInfo1.Owners.Add("Welby", "Dr. Marcus Welby")
Me.UltraCalendarInfo1.Owners.Add("Kimble", "Dr. Richard Kimble")
Me.UltraCalendarInfo1.Owners.Add("Quincy", "Dr. Quincy")
Me.UltraCalendarInfo1.Owners.Add("Spencer", "Dr. Luke Spencer")
Me.UltraDayView1.GroupingStyle = DayViewGroupingStyle.OwnerWithinDate
Me.UltraDayView1.TimeSlotInterval = TimeSlotInterval.ThirtyMinutes
End Sub