¿Qué tal si en vez de complicarte la vida le pones la propiedad Locked a True?
.
Saludos
.
EDITO: A pesar de que de esa forma no permite seleccionar nada, en fin, con el KeyDown sería:
Código vb:
Ver originalPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
KeyCode = 0
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub