关于richtextbox发出奇怪声音的问题，高手进

Question

我写了一个richtextbox控键，其keyup代码如下
Private Sub txtIn_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        mod_senddata.SendCmds txtIn.Text        
    End If
End Sub运行后每次回车，都会有系统发出的“dang~~",dang~声，请问该如何屏蔽掉这个声音呢？

Answer 1

Private Sub txtIn_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        mod_senddata.SendCmds txtIn.Text
'-------------------------
        KeyAscii=0
'-------------------------
    End If
End Sub