Private Sub UltraMonthViewSingle1_MoreActivityIndicatorClicked(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinSchedule.MoreActivityIndicatorClickedEventArgs) Handles ultraMonthViewSingle1.MoreActivityIndicatorClicked
		'	クリックしたインジケーターを含む日への参照を取得します
		Dim day as Infragistics.Win.UltraWinSchedule.Day = e.Day
		Dim date As DateTime = day.Date
		'	クリックしたインジケーターを含む日をアクティブ化します
		Me.ultraCalendarInfo1.ActiveDay = day
		'	クリックしたインジケーターを含む日を選択します
		Me.ultraCalendarInfo1.SelectedDateRanges.Clear()
		Me.ultraCalendarInfo1.SelectedDateRanges.Add( date )
		'	UltraDayView コントロールを表示するため、 UltraMonthViewSingleBase の
		'	派生コントロールを非表示にします
		Dim senderControl As UltraMonthViewSingleBase = sender
		senderControl.Visible = false
		'	UltraDayView コントロールを表示します。UltraDayView は
		'	SelectedDateRanges コレクションのコンテンツを表示するため、
		'	クリックしたインジケーターを含む日は
		'	UltraDayView コントロールで表示されます
		Me.ultraDayView1.Visible = true
   End Sub