Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim newMapping As UltraDayViewKeyActionMapping
' Add a custom key/action mapping to the UltraDayView that
' will navigate to the first working-hour time slot
' when the control has focus but is not selecting time slots
' and the users presses the ‘W’ key (unless the
' 'alt’ key is also pressed).
newMapping = New UltraDayViewKeyActionMapping(Keys.W, UltraDayViewAction.FirstWorkingHourTimeSlot, UltraDayViewState.SelectingTimeSlots, 0, Infragistics.Win.SpecialKeys.Alt, 0)
Me.UltraDayView1.KeyActionMappings.Add(newMapping)
End Sub