Visual Basic - Funcion KeyDown

Hola a todos.
alguien sabe como poder eliminar el sonido que emite la función KeyDown cuando se activa la tecla (en este caso me emite un sonido como un beep al presionar la tecla Enter).

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
End If
End Sub

este código permite pasar del Text1 al Text2 al presionar la tecla enter, pero al hacerlo me emite ese sonido que nose como eliminar.
Agradecería alguien me ayudara.

Hola el siguiente codigo lo elimina, en vez de usar keydown en el ejemplo siguiente he usado keypress.Hay que hacer que el keyascii sea igual a 0.
Y ponerlo tambien el el segundo texbox porque si solo pones el codigo en el primero y le das al enter y ya tiene el focoel segundo pues seguiria sonando.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
End Sub

salu2

Gracias por responder.
el problema es que ese textbox está enlazado tambien con la tecla F1 y F2 teclas que no reconoce el KeyPress así que no puedo cambiarme a keypress, tengo que lograr eliminar ese sonido con keyDown solamente.
gracias

No importa que esté "enlazado" a F1 y F2, no le cambies nada al KeyDown.
Pon el ejemplo que te dieron en KeyPress.
Por cierto, KeyDown no es función, sino evento.

Hola mejor asi, pon en el evento keydown solamente el cambio de foco si se pulsa enter y en los eventos keypress de cada textbox el cambio de asccii de 13 que es el valor de vbkeyreturn(enter) a 0.Veras que funciona.

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Text2.SetFocus
End If
End Sub

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

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
End If
End Sub

salu2

A mi ese código no me funcionó para lo que yo queria. Te copio lo que yo hice.

Para empezar, asigno la propiedad de Tabulador a la tecla Enter en el formulario.

------------------------------------------------------------------------------------------------------------
Private Sub frmPrincipal_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Chr(13) Then
SendKeys.Send("{tab}")
End If
End Sub
------------------------------------------------------------------------------------------------------------

Y ahora para ELIMINAR / QUITAR ese molesto sonido (BEEP).

Encontré dos formas de hacerlo, una en el mismo evento KeyPress del Formulario.

Ejemplo:
------------------------------------------------------------------------------------------------------------
Private Sub frmPrincipal_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
If e.KeyChar = Chr(13) Then
SendKeys.Send("{tab}")
e.handled = true
End If
End Sub
------------------------------------------------------------------------------------------------------------

Pero claro, si lo hacia asi, el resto de funciones que tenia asignado a eventos KeyPress de mis textbox, como por ejemplo que al pulsar enter en un txtCliente, me mostrara en un label el nombre del cliente, entonces no me lo mostraba, no realizaba ninguna operación programada.

Asi que lo hice de la otra forma que se me ocurrió.

En cada textbox en el evento KeyPress programé lo siguiente:
------------------------------------------------------------------------------------------------------------
If e.KeyChar = Chr(13) Then
e.Handled = True
End If
------------------------------------------------------------------------------------------------------------

Ejemplo:
------------------------------------------------------------------------------------------------------------
Private Sub DTFecha_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DTFecha.KeyPress
If e.KeyChar = Chr(13) Then
e.Handled = True
End If
End Sub
------------------------------------------------------------------------------------------------------------

Espero que sirva de ayuda, sino al usuario en concreto, a cualquiera que necesite sacar ese molesto Beep, sin por ello perder el resto de operaciones.

Un SALUDO!

Para Microsoft Visual Studio.net 2005

Solo coloca en el Keypress, sin otro codigo, keyascii=0, en el evento keydown colocas todo tu codigo y no emite sonido beep ni por el enter ni por ninguna otra tecla pulsada