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