コンボボックスのキー入力を不許可にする

Private Sub コンボA_KeyDown(KeyCode As Integer, Shift As Integer)

‘コンボボックスのキークリック時

If KeyCode <> vbKeyReturn And KeyCode <> vbKeyTab And KeyCode <> vbKeyEscape Then
‘キー入力を無効にする(Enter/Tab/Esc以外)
KeyCode = 0
End If

End Sub