Visual Basic - color a la fuente

Buenas tardes para todos tengo un formulario mdi y un formulario con un richtextbox el cuadro de dialogo de formato fuente ya lo muestra y cambia el tamaño de la letra pero me esta sacando error es en que no cambio el color
Adjunto el código que estoy utilizando pra que por favor me colaboren.

Mil gracias. Inés.

Private Sub mnufuente_Click()
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Establecer la propiedad Flags
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.Flags = cdlCFScreenFonts + cdlCFEffects
' Presentar el cuadro de diálogo Fuente
CommonDialog1.ShowFont
Form1.RichTextBox1.Font.Name = CommonDialog1.FontName
Form1.RichTextBox1.Font.size = CommonDialog1.FontSize
Form1.RichTextBox1.Font.Bold = CommonDialog1.FontBold
Form1.RichTextBox1.Font.Italic = CommonDialog1.FontItalic
Form1.RichTextBox1.Font.Underline = CommonDialog1.FontUnderline
Form1.RichTextBox1.Font.Strikethru = CommonDialog1.FontStrikethru
Form1.RichTextBox1.SelColor = CommonDialog1.Color
Exit Sub
ErrHandler:

Mil gracias ya aclare la duda.