Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim timeSlot As TimeSlot = Me.UltraDayView1.GetTimeSlotFromTime(New DateTime(1, 1, 1, 12, 15, 0))
If Not timeSlot Is Nothing Then
Debug.WriteLine("The TimeSlot that contains the time 12:15 starts at " + timeSlot.StartTime.ToLongTimeString() + " and ends at " + timeSlot.EndTime.ToLongTimeString())
End If
End Sub