字体大小设计

Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.Click
\tIf CheckBox3.Checked = True Then
\t\tintFontSize = 25
\tElse
\t\tintFontSize = 9
\tEnd If
\tCall FontSet()
End Sub

斜体颜色设计

Private Sub CheckBox4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox4.Click
\tIf CheckBox4.Checked = True Then
\t\tTextBox1.ForeColor = Color.Blue
\tElse
\t\tTextBox1.ForeColor = Color.Black
\tEnd If
\tCall FontSet()
End Sub