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