Sub btnSend_Click
ErrorLabel(noconn)
If blnServer = False Then
stream.WriteString(name & ">" & txtSend.Text)
Else
SendToAllClients(name & ">" & txtSend.Text,"") 'Data is sent to all clients.
End If
txtReceive.Text = txtReceive.Text & CRLF & txtSend.Text
txtReceive.SelectionStart = StrLength(txtReceive.Text)-1
txtReceive.ScrollToCaret
txtSend.Text = ""
txtSend.Focus
Return
noconn:
Client.Close
Client.New1
Connect(IPAddress(0))
Msgbox("Reconnected OK")
End Sub