[Resolvido] Beep na textBox

[joaoscarvalhos 0]

Alguem me ajude!!!!!!Sempre k teclo enter (KeyAscii 13) para mudar de textbox ele dá um beep.Como posso anular este beep??

[Fernando Almeida 0]

fazendo esse codigo abaixo o enter funcionará como o tab no text1 e não será feito nenhum beep

 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift _	  As Integer)  If KeyCode = vbKeyReturn Then	SendKeys "{Tab}" 'aki altera o enter pelo tab	KeyCode = 0  End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then	  KeyAscii = 0 ' aki anula o beep, uma vez que sem multiline no textbox não existe caractere _						 para ser impresso   End IfEnd Sub

flw

[joaoscarvalhos 0]

Obrigado,Resolveu o meu problema