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 = vbYellow
End Sub
Private Sub Optcolor3_Click()
If Optcolor3.Value = True Then Text1.ForeColor = vbGreen
End Sub
Private Sub Optfontsize1_Click()
If Optfontsize1.Value = True Then Text1.FontSize = 12
End Sub
Private Sub Optfontsize2_Click()
If Optfontsize2.Value = True Then Text1.FontSize = 18
End Sub
Private Sub Optfontsize3_Click()
If Optfontsize3.Value = True Then Text1.FontSize = 24
End Sub
Private Sub Text1_Change()
End Sub
