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
' 年の最後の月に相対する MonthOfYear オブジェクトを取得します
Dim monthOfYear As MonthOfYear = Me.ultraCalendarInfo1.MonthsOfYear(Me.ultraCalendarInfo1.MonthsOfYear.Count)
' 月の長い名前および短い名前を MessageBox に表示します
Dim info As String = String.Empty
info += "The long name for the last month of the year is '" + monthOfYear.LongDescriptionResolved + "'." + "\n"
info += "The short name for the last month of the year is '" + monthOfYear.ShortDescriptionResolved + "'." + "\n"
MessageBox.Show(info, "MonthsInYear", MessageBoxButtons.OK)
End Sub