Set font color to selected text from RichTextBox using ColorDialogBox...

Set foreground color of selected text from the color dialog box...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cd As New ColorDialog
        cd.ShowDialog()
        RichTextBox1.SelectionColor = cd.Color
End Sub