Есть Combobox

Для обработки нажатия ENTER- сделано:


Private Sub Combo6_KeyDown(KeyCode As Integer, Shift As Integer)


If KeyCode = 13 Then
KeyCode = 0
Me.Text5.SetFocus
endif


end sub


Все работает правильно


Но как сделать то же самое при нажатии мышкой ?

Если поставить в
Private Sub Combo6_Click()
....

If KeyCode = 13 Then
KeyCode = 0
Me.Text5.SetFocus
endif



Не работает, так как при каждом нажатии клавиш Стрелка вверх-вниз - попадаем в эту процедуру Combo6_Click()