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