Imports Infragistics.Win.UltraWinSchedule
...
Private Sub Create_Custom_Date_Buttons_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim dateButton As CalendarCombo.DateButton
dateButton = Me.UltraCalendarCombo1.DateButtons.Add("Custom", _
DateButtonType.Today, "2 days from now")
dateButton.Type = DateButtonType.Custom
dateButton.Date = DateTime.Today.AddDays(2)
End Sub