How do I change the color of the selected text only

See more:

VB14

I have this code for a rich text box and i have tried this but all the content of the text box changes color not only the selected text.

Private Sub BtnColourfont_Click(sender As Object, e As EventArgs) Handles BtnColourfont.Click

    Dim simpleSound As New SoundPlayer("c:\Windows\Media\clickPolly.wav")
    simpleSound.Play()
    ColorDialog1.Color = TextBox1.ForeColor

    If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    End If
    RichTextBox1.ForeColor = ColorDialog1.Color
    setcolor = SelectedText
    If RichTextBox1.SelectionLength > 0 Then

    End If
    Clipboard.SetText(RichTextBox1.SelectedText)
End Sub

What I have tried:

Private Sub BtnColourfont_Click(sender As Object, e As EventArgs) Handles BtnColourfont.Click

    Dim simpleSound As New SoundPlayer("c:\Windows\Media\clickPolly.wav")
    simpleSound.Play()
    ColorDialog1.Color = TextBox1.ForeColor

    If ColorDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    End If
    RichTextBox1.ForeColor = ColorDialog1.Color
    setcolor = SelectedText
    If RichTextBox1.SelectionLength > 0 Then

    End If
    Clipboard.SetText(RichTextBox1.SelectedText)
End Sub