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 button4.Click
        Me.DisableFirstDayOfMonth()
    End Sub
    Private Sub DisableFirstDayOfMonth()
        '	月の最初日の DayOfMonth オブジェクトを取得します
        '	DaysOfMonth コレクションのインデックスは 1 から開始することに
        '	注意してください
        Dim dayOfMonth As Infragistics.Win.UltraWinSchedule.DayOfMonth
        dayOfMonth = Me.ultraCalendarInfo1.DaysOfMonth(1)
        '	必要な日を取得したことを確認します
        Debug.Assert(dayOfMonth.DayNumber = 1, "Wrong DayOfMonth returned in 'DisableFirstDayOfMonth'!")
        '	月の最初の日を無効にします
        If (dayOfMonth.DayNumber = 1) Then
            dayOfMonth.Enabled = False
        End If
    End Sub