Чат: Richtextbox применить разные цвета для диалогов - Visual Basic .NET

Формулировка задачи:

Здравствуйте.Я создал программу TCP/IP чат в Richtextbox отображается разговор и вот я хочу чтобы моё сообщения показывалась другим цветом Сообщения собеседника другим Вот Код программы: Код отправки:

  Try
                clients = New TcpClient(textIp.Text, port)
                Dim writer As New StreamWriter(clients.GetStream())
                writer.Write(TextToSend)
                ReceivedText.AppendText(Format(Now, "[dd.MM | hh:mm:ss]]" & " Ты:" & TextToSend.Text & vbCrLf))
                TextToSend.Clear()
                writer.Flush()
 
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical)
            End Try

Код получения:

            clients = listen.AcceptTcpClient()
            Dim reader As New StreamReader(clients.GetStream())
            While reader.Peek > -1
                msg = msg + Convert.ToChar(reader.Read()).ToString
            End While
            ReceivedText.AppendText(Format(Now, "[dd.MM | hh:mm:ss]]" & " Он:" & Mid(msg, 37, 10000) & vbCrLf))

Решение задачи: «Чат: Richtextbox применить разные цвета для диалогов»

textual
                            Листинг программы 
                        
                            RTB1.Selection.BackColor = Color.Red