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
' 現在の日付またはそれ以降の日付で
' 選択可能な最初の (表示されていて有効な) 日付を取得します
Dim selectableDate As DateTime = DateTime.Today
Me.ultraCalendarInfo1.GetClosestSelectableDate(DateTime.Today, ClosestDayToReturn.OnOrAfter, selectableDate)
' エンド ユーザーに最初の選択可能な日付を表示します
MessageBox.Show("The first selectable day that falls on or after the current date is " + selectableDate.ToLongDateString() + "." + vbCrLf, "GetClosestSelectableDate", MessageBoxButtons.OK)
End Sub