KeyDown в TextBox [как убрать гудок?]

[Dion]

Пишу чат для общения в локальной сети. Для удобства реализовал отправку сообщения клавишей "Enter".

Проблема такая: В тот момент когда нажимаешь "Enter" и сообщение "отправляется" происходит некий звуковой гудок, который совсем не в тему тем более, что я дополнил отправку сообщения отдельными звуковыми эффектами...
Очень мешает этот "Гудок"! Подскажите пожалуйста, как от него избавиться?

Код: Выделить всё

Private Sub SndMessage_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
  SendMessage SndMessage.Text, True, sSend, True, cUser '\\ Функция отправкии сообщения
End If
End Sub


[13GHOST]

Код: Выделить всё

Private Sub dataOut_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
'.........................
end if
end sub   

[Dion]

13GHOST:
Огромное спасибо! Теперь всё работает как надо!

Sorry за офтоп...