Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Clear the Owners collection
Me.ultraWeekView1.CalendarInfo.Owners.Clear()
' Hide the unassigned owner
Me.ultraWeekView1.CalendarInfo.Owners.UnassignedOwner.Visible = False
' Add some owners
Me.ultraWeekView1.CalendarInfo.Owners.Add("arthur_fonzarelli", "Fonzie")
Me.ultraWeekView1.CalendarInfo.Owners.Add("richard_cunningham", "Richie Cunningham")
Me.ultraWeekView1.CalendarInfo.Owners.Add("warren_weber", "Potsie")
Me.ultraWeekView1.CalendarInfo.Owners.Add("ralph_malph", "Ralph Malph")
' Set the OwnerDisplayStyle property to 'Separate' so that
' owners are displayed separately
Me.ultraWeekView1.OwnerDisplayStyle = OwnerDisplayStyle.Separate
' Set the OwnerNavigationStyle property to Scrollbar so the end user
' can navigate through owners with a horizontal scrollbar
Me.ultraWeekView1.OwnerNavigationStyle = OwnerNavigationStyle.Scrollbar
' Set the MaximumOwnersInView property to 2 so the end user can view
' up to 2 owners at a time
Me.ultraWeekView1.MaximumOwnersInView = 2
' Set the ShowOwnerHeader property to true so that headers
' are displayed for the owners
Me.ultraWeekView1.ShowOwnerHeader = DefaultableBoolean.True
End Sub