Now that the code to establish the connection has been included, the next step is to actually send and receive data to and from the server. To do this, the Text2 control should have the following code added to it's KeyPress event:

Sub Text2_KeyPress (KeyAscii As Integer)
If KeyAscii = 13 Then
    Socket1.SendLen = Len(Text2.Text)
    Socket1.SendData = Text2.Text
    KeyAscii = 0: Text2.Text = ""
End If
End Sub

If the user presses the Enter key in the Text2 control, then that text is sent down to the echo server. The properties used to send data are as follows:

Once the data has been sent to the server, it immediately sends the data back to the client. This generates a Read event in SocketWrench, which should have the following code:

Sub Socket1_Read (DataLength As Integer, IsUrgent As Integer)
    Socket1.RecvLen = DataLength
    Text3.Text = Socket1.RecvData
End Sub

The properties used to receive the data are as follows:

The Read event is passed two parameters, the number of bytes that are available to be read, and a flag that specifies if the data is urgent (also known as "out-of-band" data, the use of urgent data is an advanced topic outside of the scope of this document). For more information about the Read event, please refer to the SocketWrench/VB Technical Reference.