Imports Infragistics.Win.UltraWinSchedule ... Private Sub SpinButtonElements_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' 週が増えると値を変更します Me.UltraCalendarCombo1.SpinButtonIncrement = SpinIncrementUnit.Weeks ' 増分値を 4 に変更します。この事例では 4 週間になります。 Me.UltraCalendarCombo1.SpinButtonIncrementValue = 4 End Sub