Code:
If Bold = False Then
Bold = True
Dim Style1 = Nothing
Dim Style2 = Nothing
Dim style3 = Nothing
If Italic = True Then
Style1 = FontStyle.Italic
End If
If Underwear = True Then
Style2 = FontStyle.Underline
End If
If Strikeout = True Then
style3 = FontStyle.Strikeout
End If
TextBoxx1.SelectionFont = New Font(TextBoxx1.Font, Style1 Or Style2 Or style3 Or FontStyle.Bold)
Else
Bold = False
Me.TextBoxx1.SelectionFont = New Font(TextBoxx1.Font, FontStyle.Regular)
Dim Style4 = Nothing
Dim style5 = Nothing
Dim Style6 = Nothing
If Italic = True Then
Style4 = FontStyle.Italic
End If
If Underwear = True Then
Style5 = FontStyle.Underline
End If
If Strikeout = True Then
style6 = FontStyle.Strikeout
End If
TextBoxx1.SelectionFont = New Font(TextBoxx1.Font, Style4 Or style5 Or Style6)
End If