Text1.FontItalic = Chkstyle2.Value End Sub Private Sub Chkstyle3_Click() Text1.FontUnderline = Chkstyle3.Value End Sub Private Sub Optcolor1_Click() If Optcolor1.Value = True Then Text1.ForeColor = vbRed End Sub Private Sub Optcolor2_Click() If Optcolor2.Value = ture Then Text1.ForeColor = vbYell