I'm making a simple 2 person chat prog. I want to have different colors for the user names for "UserA" and "UserB" and for them to be in bold. The colors dont work they way I would like them to. The colors only appear on UserA, (the one who was listening for the connection request), and it doesnt have separate coloring for either user. Just one color or the other. Here is the complete source for my program:

Code:
Option Explicit
Public incomingbuffer As Variant
Dim AreWeOn As Boolean
Dim IsError As Boolean

Private Sub b_con_Click()
    l_stat.Caption = "Attempting to connect to " & t_Ipcon.Text & " on port 2100..."
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.RemoteHost = t_Ipcon.Text
    Winsock1.Connect
    AreWeOn = False
    IsError = False
    Do Until AreWeOn = True Or IsError = True
        DoEvents: DoEvents: DoEvents: DoEvents
        If Winsock1.State = sckConnected Then AreWeOn = True
        If Winsock1.State = sckError Then
            MsgBox "There has been a communication error.", , "..Error.."
            IsError = True
            Exit Sub
        End If
    Loop
    l_stat.Caption = "Connected to " & t_Ipcon.Text & " on port 2100..."
    con_IP.Caption = t_Ipcon.Text
    con_port.Caption = "2100"
End Sub

Private Sub b_discon_Click()
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Listen
    l_stat.Caption = "Listening for connection on port 2100..."
End Sub

Private Sub b_sendout_Click()
    Winsock1.SendData t_input.Text
    AddUserText "You", t_input.Text
    t_input.Text = ""
End Sub

Private Sub Form_Load()
    Winsock1.Listen
    l_stat.Caption = "Listening for connection on port 2100..."
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Winsock1.State <> sckClosed Then Winsock1.Close
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Accept requestID
    l_stat.Caption = "Connected to " & Winsock1.RemoteHost & " on port 2100..."
    con_IP.Caption = Winsock1.RemoteHost
    con_port.Caption = Winsock1.RemotePort
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Winsock1.GetData incomingbuffer, vbString
    AddRecipText "Recipiant", incomingbuffer
End Sub

Sub AddRecipText(Username As String, Text As Variant)
    t_output.SelStart = Len(t_output.Text)
    t_output.SelLength = 0
    t_output.SelBold = True
    t_output.SelColor = RGB(0, 0, 255)
    t_output.Text = t_output.Text & Username & " said: "
    t_output.SelStart = Len(t_output.Text)
    t_output.SelLength = 0
    t_output.SelBold = False
    t_output.SelColor = RGB(0, 0, 0)
    t_output.Text = t_output.Text & Text & vbCrLf

    
    't_output.SelBold = False
    't_output.SelColor = RGB(0, 0, 0)
End Sub

Sub AddUserText(Username As String, Text As Variant)
    t_output.SelStart = Len(t_output.Text)
    t_output.SelLength = 0
    t_output.SelBold = True
    t_output.SelColor = RGB(255, 0, 0)
    t_output.Text = t_output.Text & Username & " said: "
    t_output.SelStart = Len(t_output.Text)
    t_output.SelLength = 0
    t_output.SelBold = False
    t_output.SelColor = RGB(0, 0, 0)
    t_output.Text = t_output.Text & Text & vbCrLf

    
    't_output.SelBold = False
    't_output.SelColor = RGB(0, 0, 0)
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "There has been a communication error.", , "..Error.."
End Sub

--Descriptions of controls--

t_output  -  RichText - Where the "chat log" is displayed.
t_input  -  TextBox - Where you would type the message that is sent.
t_Ipcon  -  TextBox - User enters IP or Hostname of who to connect to here
con_Ip  -  Label - displaying the IP you are connect to. (only works partially)
con_port  -  Label - displaying the port you are connected to always 2100.
l_stat  -  Label - displaying the current connection status. (only works partially)
b_discon  -  CommandButton - Disconnect button
b_sendout  -  CommandButton - Send button
b_con  -  CommandButton - Connect button
Thanks in advance.