' 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