quitar el beep al pasar el foco en comandos de textos

Poniendo KeyAscii = 0

(...)
If KeyAscii = 13 Then
KeyAscii = 0
If Index < 8 Then
(...)

PS: te recomiendo que no pongas valores "hard coded". Es mejor usar las
constantes definidas en VB en su lugar (en lugar de 13, poner vbKeyReturn).


Saludos,
Alex


"Reinaldo González" wrote in message
news:090e01c352a5$27487f90$
hola a todos

he escrito la siguiente función

Private Sub txtAgenda_KeyPress(Index As Integer, KeyAscii
As Integer)

If KeyAscii = 13 Then
If Index < 8 Then
txtAgenda(Index + 1).SetFocus
Else
cmdAceptar.SetFocus
End If
Else
txtAgenda(2) = KeyAscii
End If

End Sub

para que en un formulario
en cualquier control de texto al presionar <Intro> salte
al siguiente en la secuencia, funciona bien pero en cada
cambio de control suena un beep en el altavoz, ¿cómo puedo
quitar ese molesto beep ?

Gracias de antemano

Reinaldo