如何去掉SetFocus选中时的声音？


Private Sub Text20_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then
       Command1.SetFocus
     End If
End Sub
运行时会发生咚咚声，若多个这样扬命令时，会很恼人，如何让声音消失，谢谢。

多谢指教，问题圆满解决