prova questo se ti piace è molto semplice ma funziona

code:
------------------------------------------------
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
-------------------------------------------------

Marco