Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyUp, vbKeyDown, vbKeyPageUp, vbKeyPageDown
    Case Else
      KeyCode = 0
  End Select
End Sub
 
Private Sub Combo1_KeyPress(KeyAscii As Integer)
  KeyAscii = 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de