WPF. ListBox выбор элемента с помощью колеса мыши

Code-behind:

private void ListBox_OnPreviewMouseWheel(object sender, MouseWheelEventArgs e)
{
    bool isScrollUp = e.Delta > 0;  
    bool isIndexOutOfRange = (ListBox.SelectedIndex < 1 && isScrollUp) || (ListBox.SelectedIndex > ListBox.Items.Count && !isScrollUp);
    if (isIndexOutOfRange) return;
    int scrollStep = 1;
    if (isScrollUp) scrollStep = -1;
    ListBox.SelectedIndex += scrollStep;
    ListBox.ScrollIntoView(ListBox.SelectedItem);
    e.Handled = true;
}

XAML:

<ListBox x:Name="ListBox" 
         ItemsSource="{Binding Numbers}" 
         PreviewMouseWheel="ListBox_OnPreviewMouseWheel" />