Ликвидировать системный звук в textbox

[extHack]

Прив, народ помогите решить проблему. Ниже код


Private Sub txtSend_KeyPress(KeyAscii As Integer)

if KeyAscii=13 then
winsck.senddata "qwe"
txtSend.text=""
end if

End Sub

Ввожу текст, жму enter -> отправляются данные и txtSend
очищается. Как убрать звук beep ?!

[alibek]

KeyAscii=0

[extHack]

Отлично!
Спасибо