Как переключаться между элементами ActiveX Combobox с помощью клавиш со стрелками

Question

Как переключаться между элементами ActiveX Combobox с помощью клавиш со стрелками? Я хотел бы добиться такого поведения, генерируемого при наведении мыши на элемент. Так что синяя подсветка перемещается, когда мы нажимаем стрелку вниз или клавишу со стрелкой вверх.

У меня есть подсказка, что это должно быть сделано с событием CoboboxName_KeyDown.

Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 38 'up
        Case 40 'down
    End Select
End Sub

Answer 1

Манипулирование TempCombo.ListIndex - это ответ. Пример для up arrow ключа:

Case 38  'Up
TempCombo.ListIndex = TempCombo.ListIndex - 1
Me.TempCombo.DropDown

Использование этого требует обработки ошибок для первого и последнего элемента в списке. Вот подсказка для решения проблемы: https://stackoverflow.com/a/34621918/1903793