Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub UltraDayView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles UltraDayView1.KeyDown
If (e.KeyCode Or Keys.Delete) = Keys.Delete AndAlso e.Shift Then
If Not Me.UltraDayView1.ActiveOwner Is Nothing Then
If MessageBox.Show(Me, "Would you like to delete all activity for '" + Me.UltraDayView1.ActiveOwner.Name + "'?", "Delete All Activity?", MessageBoxButtons.YesNo) = DialogResult.Yes Then
Me.UltraDayView1.ActiveOwner.DeleteAllActivity()
End If
End If
End If
End Sub