請教高手sendkeys的問題(編號：6730)

當我在Text1_KeyDown事件寫了以下程式時
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then SendKeys "{tab}"
End Sub
游標會成功的移到下一個focus,但是我的電腦卻會同時發出一個beep,
請問各位高手,我要如何避免此一情形呢?謝謝