Imports Infragistics.Win.UltraWinSchedule
...
Private Sub Display_Week_Numbers_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.UltraMonthViewSingle1.WeekHeaderDisplayStyle = _
WeekHeaderDisplayStyle.WeekNumber
Me.UltraMonthViewMulti1.WeekNumbersVisible = True
Me.UltraCalendarCombo1.WeekNumbersVisible = True
End Sub