Vb.net Yardım

Arkadaşlar chat uygulaması yapıyorum ama şöyle bir sıkıntım var

richtextbox1.SelectionColor = Color.Red
richtextbox1.SelectedText = "Admin konuştu :"

kodunu kullanarak sadece "Admin konuştu :" yazısını kırmızı renk yapmaya çalışıyorum.
richtextbox'a kırmızı renkte yazı gönderiyor.
Yardımcı olursanız sevinirim.

Kullanım:

seukaiwokeo' Alıntı:

VB.Net:

    Public Sub ColorWord(rtb As RichTextBox, word As String, color As Color)
        Dim start, found As Integer
        With rtb
            found = .Find(word, start, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight)
            Do While found > -1
                .SelectionStart = found
                .SelectionLength = word.Length
                .SelectionColor = color
                start = found + word.Length
                If start >= .TextLength Then Exit Do
                found = .Find(word, start, RichTextBoxFinds.WholeWord Or RichTextBoxFinds.NoHighlight)
            Loop
        End With
    End Sub

Kullanım:

VB.Net:

ColorWord(RichTextBox1, "Admin", Color.Red)

Genişletmek için tıklayın ...

eyw

I couldn't understand the title

Yukarıdaki çocuk öğretti