Here is the Code for the Program about adding text effects to the text box

Check the Video for Clear Cut Example

Private Sub Exit_Click()
End
End Sub

Private Sub Font_Click()
 CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
  CommonDialog1.ShowFont
  Form1.Text1.FontName = CommonDialog1.FontName
  Form1.Text1.FontBold = CommonDialog1.FontBold
  Form1.Text1.FontItalic = CommonDialog1.FontItalic
  Form1.Text1.FontUnderline = CommonDialog1.FontUnderline
  Form1.Text1.FontSize = CommonDialog1.FontSize

End Sub

Private Sub fontColr_Click()
CommonDialog1.ShowColor
  Form1.Text1.ForeColor = CommonDialog1.Color
End Sub

Private Sub new_Click()
Form2.Show
End Sub

Private Sub Open_Click()
Form1.Show
End Sub