[T44]

كود :

If msg.Type = MessageType.groupchat Then
    RichTextBox1.SelectionStart = RichTextBox1.Text.Length
    RichTextBox1.SelectionColor = Color.White
    RichTextBox1.AppendText(msg.From.Resource)
    RichTextBox1.SelectionColor = Color.Red
    RichTextBox1.SelectionStart = RichTextBox1.TextLength
    RichTextBox1.AppendText(" ➤ " + msg.Body & ChrW(13) & ChrW(10))
    RichTextBox1.ScrollToCaret()
End If