Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
' Use the date associated with today and find its DayOfYear index.
Dim todaysDate As DateTime = DateTime.Today
Dim dayOfYearIndex As Integer = UltraCalendarLook.DayOfYearIndexFromMonthAndDay(todaysDate.Month, todaysDate.Day)
Debug.WriteLine("The day of year index for today (" + todaysDate.ToShortDateString() + ") is: " + dayOfYearIndex.ToString())
End Sub