Font Common Dialog?

Ok, i have a RichTextBox1, and i have a CommonDialog1, now how do i get it to work when selected text = font selected from the Font Dialog screen? (Am i making any sense?)

-$uper-$tar:confused:

Like this I think

VB Code:

CommonDialog1.ShowFont
RichTextBox1.SelFontName = CommonDialog1.FontName

I can't test it because it says I don't have any fonts installed! :confused: :confused: :eek:

No fonts? but... how does it find em?
J/w
~$uper-$tar

Fixed it!

VB Code:

CommonDialog1.Flags = cdlCFBoth
CommonDialog1.ShowFont
RichTextBox1.SelFontName = CommonDialog1.FontName

You wouldn't know the print screen, or color would ya? LoL
:D

~$uper-$tar

You want to set the colour too? Try this

VB Code:

CommonDialog1.ShowColor
RichTextBox1.SelColor = CommonDialog1.Color

Going at it right now :)

~$uper-$tar