Campanazo molesto

[albertovicat]

En los programas que hago solicito los datos de un artículo, un cliente, un proveedor, o lo que sea en una matrix de varios TextBox.
En la KeyDown de ellos, si la tecla es Enter se verifica el tipo de datos según el Index y luego se pasa el foco al siguiente. Todo funciona bien, la pega es que al ocurrir esto se produce un campanazo bastante molesto. No encuentro forma de sacarle este sonido, salvo "a lo bruto" anulando el sonido en el sistema operativo, pero no puedo obligar a los clientes que me compran los programas a que hagan tal cosa en sus máquinas.
Seguramente alguien ha pasado por esto y sabe como hacer para sacarle este sonido.
Gracias.

[albertovicat]

Casi simultáneamente, en otros dos foros, apareció la respuesta a mi problema: en vez de utilizar la sub KeyDown con KeyCode, hacerlo con la KeyPress/KeyAscii y poner el KeyAscii = 0 una vez verificado que se trata de Enter (13).
En KeyDown, aunque se ponga el KeyCode = 0, el beep sigue sonando.
La única contra (menor) es la imposibilidad de verificar, en KeyPress, cual es el estado de Shift. Pero no todo pueden ser rosas. Está solucionado.

[black_devil]

Hola, también puede ser, en un form en la propiedad Keypreview de éste, cambiarla a True, y en el evento:

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
      If KeyAscii = 13 Then
         SendKeys "{tab}"
         KeyAscii = 0
     End If
 End Sub

ó ...

Código:

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