' Create a time span value to set the intial value for ultraTimeSpanEditor Dim toStartWithValue As New TimeSpan(4, 0, 0, 0) ' Create minimum and maximum time span values Dim minValue As New TimeSpan(1, 0, 0, 0) Dim maxValue As New TimeSpan(20, 0, 0, 0) ' Set the initial time span value Me.ultraTimeSpanEditor1.TimeSpan = toStartWithValue ' Set minimum and maximum time span values for ultraTimeSpanEditor Me.ultraTimeSpanEditor1.MinValue = minValue Me.ultraTimeSpanEditor1.MaxValue = maxValue ' Set the unit of time to days Me.ultraTimeSpanEditor1.Format = TimeSpanFormat.Days ' Set the string to be displayed when the number of days is more than one Me.ultraTimeSpanEditor1.FormatInfo.DayDisplayStringPlural = "DAYS" ' Do not display the spin button ' this.ultraTimeSpanEditor1.HasSpinButton = false; ' Fire the event when the value within ultraTimeSpanEditor changes. AddHandler Me.ultraTimeSpanEditor1.ValueChanged, AddressOf ultraTimeSpanEditor1_ValueChanged Private Sub ultraTimeSpanEditor1_ValueChanged(ByVal sender As Object, ByVal e As EventArgs) ' TODO: Implementation logic for value changed End Sub