Private Sub ultraCalendarInfo1_InitializeMonth(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.InitializeMonthEventArgs) Handles ultraCalendarInfo1.InitializeMonth
'----------------------------------------------------------------------------------------------------
' 説明
' InitializeMonth
'
' ユーザー インターフェイスの操作または GetMonth メソッドの呼び出しで、
' Month オブジェクトが初期化されたときに発生します
'
'----------------------------------------------------------------------------------------------------
Dim monthName As String = System.Globalization.CultureInfo.CurrentCulture.DateTimeFormat.MonthNames(e.Month.MonthNumber - 1)
Debug.WriteLine("================================================================================")
Debug.WriteLine("InitializeMonth event fired for " + monthName)
Debug.WriteLine("================================================================================")
Debug.WriteLine("")
End Sub