Visual Basic - color de fuente

hola!!!! tengo el error de ines en el visual basic en un proyecto Mdi cambia la fuene,tamaño pero NOel color este es el codigo que tengo:

Private Sub mnuFUENTE_Click()

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
frmdocumento.RichTextBox1.Font.Name = CommonDialog1.FontName
frmdocumento.RichTextBox1.Font.Size = CommonDialog1.FontSize
frmdocumento.RichTextBox1.Font.Bold = CommonDialog1.FontBold
frmdocumento.RichTextBox1.Font.Italic = CommonDialog1.FontItalic
frmdocumento.RichTextBox1.Font.Underline = CommonDialog1.FontUnderline
frmdocumento.RichTextBox1.Font.Strikethru = CommonDialog1.FontStrikethru
frmdocumento.RichTextBox1.SelColor = CommonDialog1.Color
Exit Sub
ErrHandler:
End Sub



xfa ayudenme!!!!

¿Que color tienes definidos para el CommonDialog1.Color y el RichTextBox1?.

Por defecto en ambos es el &H00000000& (el negro)