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
' 年の最初の週は最初の完全な週であるために WeekRule を設定します
Me.ultraCalendarInfo1.WeekRule = CalendarWeekRule.FirstFullWeek
End Sub