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
' 現在の月に対応する Month オブジェクトを取得します
Dim month As Month
month = Me.ultraCalendarInfo1.GetMonth(DateTime.Today)
' 月の日数を表示します
MessageBox.Show("The number of days in the current month is " + month.DaysInMonth.ToString(), "GetMonth", MessageBoxButtons.OK)
End Sub