Visual Basic - Cuadro Dialogo

Hola a todos los expertos, temgo un mdi con un menu formato fuente el cual lo programe para que en un form1 que tiene un RichTextBox me cambie el tamaño de fuente, color, etc pero solo me deja visualizar el cuadro de dialogo y no ejecuta la acción. Anexo el código para que por favor me indiquen que falta. Gracias.

Private Sub mnufuente_Click()
' Establecer CancelError a True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' Establecer la propiedad Flags
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
' Presentar el cuadro de diálogo Fuente
CommonDialog1.ShowFont
Form1.Font.Name = CommonDialog1.FontName
Form1.Font.size = CommonDialog1.FontSize
Form1.Font.Bold = CommonDialog1.FontBold
Form1.Font.Italic = CommonDialog1.FontItalic
Form1.Font.Underline = CommonDialog1.FontUnderline
Form1.FontStrikethru = CommonDialog1.FontStrikethru
Form1.ForeColor = CommonDialog1.Color
Exit Sub
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
Exit Sub
End Sub

Hola

Que no deberias aplicar el formato es al RichTextBox1?????????????

Porque lo que estas haciendo es aplicarle formato pero al formulario para cuando escribas en el con la instruccion print

Deberia ser

Form1.RichTextBox1.Font.Name = CommonDialog1.FontName
Form1.RichTextBox1.Font.Size = CommonDialog1.FontSize
...................................................................................
...................................................................................

Saludos
http://www.theemulator.tk

Chale, The emulator
No va a faltar quién se "encorajine" porque le contestamos al "mesmo" tiempo.
Pero pos así son los foros.
Saludos

Pos como que creo que nadie te preguntó...

Buenos dias Ingeniero Themulator por ayudarme, me esta sancando error en la parte de color y en la primera linea que le muestro, parece que tengo mal digitado por favor me revisas .

Form1.RichTextBox1.FontStrikethru = CommonDialog1.FontStrikethru Form1.RichTextBox1.ForeColor = CommonDialog1.Color

gracias.

Buenos dias Ingeniero Themulator por ayudarme, me esta sancando error en la parte de color y en la primera linea que le muestro, parece que tengo mal digitado por favor me revisas .

Form1.RichTextBox1.FontStrikethru = CommonDialog1.FontStrikethru Form1.RichTextBox1.ForeColor = CommonDialog1.Color

gracias.

¡Epale, compa!
En todo tu código jamás haces referencia al tan mentado contrl RichTextBox del Form1, le estás asignando las propiedades directamente al Form1:
Form1.Font.Name = CommonDialog1.FontName
y así todas las demás.
¿No debería ser:
Form1.RichTextBox.Font.Name = CommonDialog1.FontName ?
Bueno, "asegún" como se llame tu control ese del RichTextBox

Mil gracias por colaborarmen, me esta saliendo ahora error en la siguiente línea

Form1.RichTextBox1.Fore.Color = CommonDialog1.Color

le adicione la siguiente línea al inicio del código pero me saca error me ayudan por favor.
CommonDialog1.ShowColor

intente también así

Form1.RichTextBox1.ForeColor = CommonDialog1.Color

dejando forecolor seguido sin punto pero también saca error.

Pos nomás con que le contestes, pa' demostrar tu "gran sabiduría", valedor.
Y verás que sí obtiene respuestas.
¡Ups, perdón! Olvidé que solamente te dedicas a criticar, sin ayudar en nada que valga la pena.
Olvídalo, no dije nada ...

ah, méndigo tocapel...
sigues por aquí??? y ahora con otro NOMBRE, usurpado desde luego
respecto a lo que dices "y te lo puedo asegurar, no es el unico hay mas. "
estoy de acuerdo, porque tu eres el mas vivo ejemplo de eso que balbuceas
y como siempre no se ve por ningun maldito lado alguna AYUDA tuya
pues ya sabes CHING......A TU REP....... MAD.....RE!!!!

Pos no deberías agregar la línea
CommonDialog1.ShowColor
porque ese es para mostrar el cuadro de diálogo para elegir color.
Tú necesitas el de las fuentes, y en él puedes definir el color para la fuente elegida.
Quita esa línea y deja esta otra así:
Form1.RichTextBox1.ForeColor = CommonDialog1.Color
Y sí, "ForeColor" es sin punto, porque no son dos propiedades.
Vamos a ver si el DESPISTAO (con mayúsculas) tiene algo que decir, pero ojalá sea algo que en verdad ayude, no como siempre lo hace.