Chat en visual basic

MANUAL DE EL CHAT.
*.-En el botón de conectar lleva el siguiente código:
Private Sub bntListen_Click()
On Error GoTo errorSub

With Winsock1
.Close
.LocalPort = txtPort---- (conecta al servidor con el cliente usando la IP)
.Listen
End With

Exit Sub
errorSub:
MsgBox "Error: " & Err.Description, vbCritical
End Sub

Este código nos permite laconexión del servidor con el cliente, la cual se lleva a cabo con el winsock que es la interconexión entre las computadoras utilizando simplemente la IP de la máquina.

*.-El botón enviar llebara losiguiente:

Private Sub bntSend_Click()
On Error GoTo errorSub

Winsock1.SendData txtSend

txtLog = txtLog & "ESTUDIANTE1 : " & txtSend & vbCrLf (conexión al cuadro detexto)
txtSend = ""

Exit Sub
errorSub:
MsgBox "Error: " & Err.Description ---(marca error si no están conectados)
Winsock1_Close
End Sub

Este código nos permite enviar el mensajepor medio del winsock donde dice que conectara el cuadro de texto que envía el mensaje con el cuadro de texto que lo recibe; en este código también nos manda un mensaje de error cuando mandamos unmensaje y el cliente y el servidor no se encuentran conectados.

*.-En el botón de finalizar la conversación lleva un “END” para que al dar clic termine el chat.

*.-El botón de borrar la conversaciónúnicamente lleva el código que nos permite borrar todo lo que hay en el cuadro de texto que recibe los mensajes “txtLog = ""”
Donde lleva el nombre del cuadro de texto del cual se quiere borrar elcontenido y las comillas que borran este contenido.

*.-En el cuadro de tiempo o timer lleva el siguiente código” ServerFrm.BackColor = Int(Rnd * 1999999) + 1” el cual nos permite que el chat cambiesu color de fondo automáticamente en varios colores.

*.-En el winsock pondremos el siguiente código:
Private Sub Winsock1_Close()

Winsock1.Close

txtLog = txtLog & "***...