у меня есть исходники локального чата ,, мне надо сделать чё нибудь штоб было как в асе написал нажал ентр отправилось сообщение и поле осталось пустое ,

а у меня всё не так пишешь сообщение жмёшь ентр сообщение отправляется но и остаётся в поле ввода штоб написать другое надо удалить то што написал ,,


помогите сделть штоб оно исчезала



Private Sub Text2_KeyPress(KeyAscii As Integer)
'если нажат энтер и Вы соединены, то отправить данные и сообщить об этом
If KeyAscii = 13 And ws.State = sckConnected Then ws.SendData txtName & ": " & Text2: Me.stat.Caption = "Отправлены данные"
'... а если не соединены, то подсказать совет...
If KeyAscii = 13 And ws.State <> sckConnected Then Me.stat.Caption = "Сначала соединитесь с сервером"
End Sub