Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Sub Form1_Load(sender As Object, e As System.EventArgs) '
' Assign an UltraCalendarInfo to the UltraCalendarCombo's CalendarInfo property
Me.ultraCalendarCombo1.CalendarInfo = Me.ultraCalendarInfo1
' Set a minimum and maximum date range
Me.ultraCalendarInfo1.MinDate = New DateTime(2010, 1, 1)
Me.ultraCalendarInfo1.MaxDate = New DateTime(2010, 1, 5)
' Assign an initial value
Me.ultraCalendarCombo1.Value = New DateTime(2010, 1, 1)
' Display the Spin Buttons
Me.ultraCalendarCombo1.SpinButtonsVisible = True
' Specify spinning for days
Me.ultraCalendarCombo1.SpinButtonIncrement = SpinIncrementUnit.Days
Me.ultraCalendarCombo1.SpinButtonIncrementValue = 1
' Spin Wrap the days
Me.ultraCalendarCombo1.SpinWrap = True
End Sub 'Form1_Load