Yep Robby, my mistake , thanx for pointing it out.

Hello Gopi, u gotta apply the Common Dialog selection to the text.
Use the following code for Bold, Italic, Underline & FontColor...

VB Code:
  1. Private Sub Command1_Click()

  2. Text1.FontBold = True

  3. Text1.FontItalic = True

  4. Text1.FontUnderline = True

  5. Text1.ForeColor = vbGreen

  6. End Sub

For applying Common Dialog values, use this code...

VB Code:
  1. Private Sub Command2_Click()

  2. With CommonDialog1

  3. .Flags = cdlCFScreenFonts

  4. .ShowFont

  5. Text2.FontBold = .FontBold

  6. Text2.FontItalic = .FontItalic

  7. Text2.FontUnderline = .FontUnderline

  8. Text2.Font = .FontName

  9. Text2.FontSize = .FontSize

  10. End With

  11. End Sub

Happy coding...