关于回车实现tab键功能后，按回车会发出声音的问题

控件的KeyPress事件里添加
SendKeys.Send("{Tab}");
实现了回车实现tab键功能，但是每按一次回车会发出声音，不能像按tab键一样不发出警报声

在keypress中
if(e.KeyChar==(char)13) e.Handled=true;

就不会发出警报声了。

另：在按钮上按回车或是按空格，都是触发单击事件，这是Windows的传统啊。。。

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then'如果按下回车
KeyAscii = 0'不发声
End If
End Sub

如何消除在TEXT中回车的“嘀”声音。
用以下的方法可以消除聲音.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strvalid As String
strvalid = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii > 26 Then
If InStr(strvalid, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End If
If KeyAscii = Asc(vbCr) Then KeyAscii = 0
End Sub