Visual Basic - Beep en KeyDown

Hola a todos, para todos es un tanto molesto tener el Beep al dar enter en los Combos o TextBox pues para mi tambien, y la solucion, aunque la conozco no me funciona, por favor si alguien sabe que se puede hacer le agradecer me ayude:

Si bien es por demas decirlo, pego el codigo y despues el error

Private Sub Combo_KeyDown(KeyCode as Integer, Shift as Integer)
Select Case Shift
Case 2 'Pregunta por control
If KeyCode = VbKeyReturn Then
KeyCode=0 'Aki no jala
End If
Case 4 'Pregunta por Alt
If KeyCode = VbKeyReturn Then
KeyCode=0 'Aki no jala
End If
Case Else
If KeyCode = VbKeyReturn Then
KeyCode=0 'Aki SI jala
End If
End Sub

Weno, el chiste es que al dar enter si se kita el beep pero al dar Control+Enter o Alt+Enter se lanza el Beep, quisiera saber como quitarlo.

De antemano Gracias.

Eliminar sonido Beep

suponemos que el textBox es ( text1 )

Pegar el siguiente código en el formulario:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Or KeyAscii = 9 Then KeyAscii = 0

Espero te sirva

Gracias por contestar, pero de hecho mencione en el codigo anterior que esa parte ya estaba aprendida por asi decirlo, el problema pasa solo en el evento keydown o keyup y es solo al tener el Control o el Alt presionados.

GRACIAS