Private Sub Combo1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) 'Some code End Sub