Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraCalendarLook1_CalendarLookChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinSchedule.CalendarLookChangedEventArgs) Handles UltraCalendarLook1.CalendarLookChanged
Debug.WriteLine("UltraCalendarLook has changed. (Property: " + [Enum].GetName(GetType(PropertyIds), e.PropChangeInfo.PropId) + ", Object: " + e.PropChangeInfo.Source.GetType().Name + ")")
End Sub