Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.IO
Imports System.Globalization
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' DateTime 型の 2 つの変数を宣言します (年の最初日および最後日)
        Dim earliest As DateTime = New DateTime(DateTime.Today.Year, 1, 1)
        Dim latest As DateTime = New DateTime(DateTime.Today.Year, 12, 31)
        ' ForceEarliestTimeOfDay メソッドおよび ForceLatestTimeOfDay メソッドを使用すると、
        ' 日付の Hour、Minute、Second などのプロパティを変更します
        '	これによって、日付範囲を年の最初日の 00:00:00 から
        '	年の最後日の 11:59:59 までに設定できます
        earliest = UltraCalendarInfo.ForceEarliestTimeOfDay(DateTime.Today)
        latest = UltraCalendarInfo.ForceLatestTimeOfDay(DateTime.Today)
        '   MinDate プロパティおよび MaxDate プロパティを設定します
        Me.ultraCalendarInfo1.MinDate = earliest
        Me.ultraCalendarInfo1.MaxDate = latest
    End Sub