If CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = True Then
TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Bold And Drawing.FontStyle.Italic And Drawing.FontStyle.Underline)
ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True And CheckBox3.Checked = False Then
TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Bold And Drawing.FontStyle.Italic)
ElseIf CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = True Then
TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Bold And Drawing.FontStyle.Underline)
ElseIf CheckBox1.Checked = True And CheckBox2.Checked = False And CheckBox3.Checked = False Then
TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Bold)
ElseIf CheckBox1.Checked = False And CheckBox2.Checked = True And CheckBox3.Checked = True Then
TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Italic And Drawing.FontStyle.Underline)
ElseIf CheckBox1.Checked = False And CheckBox2.Checked = True And CheckBox3.Checked = False Then
TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Italic)
ElseIf CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = True Then
TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Underline)
Else : TextBox1.Font = New Font(TextBox1.Font, Drawing.FontStyle.Regular)
End If