Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub ultraDayView1_InitializeVisibleDay(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.VisibleDayEventArgs) Handles ultraDayView1.InitializeVisibleDay
' Set the DayTextFormat property, which will apply
' to VisibleDays whose Text property is not explicitly set.
If Me.ultraDayView1.DayTextFormat.Length = 0 Then
Me.ultraDayView1.DayTextFormat = "dd-MMM-yy"
End If
' Explicitly set the VisibleDay's Text property for
' yesterday, today, and tommorow.
If (e.VisibleDay.Date.Date.Equals(DateTime.Today)) Then
e.VisibleDay.Text = "Today"
ElseIf (e.VisibleDay.Date.Date.Equals(DateTime.Today.AddDays(-1.0F))) Then
e.VisibleDay.Text = "Yesterday"
ElseIf (e.VisibleDay.Date.Date.Equals(DateTime.Today.AddDays(1.0F))) Then
e.VisibleDay.Text = "Tommorow"
End If
End Sub