\\\
Dim IsBold As Boolean = ((Me.RichTextBox1.SelectionFont.Style And FontStyle.Bold) = FontStyle.Bold)
Me.RichTextBox1.SelectionFont = _
New Font( _
Me.RichTextBox1.SelectionFont, _
DirectCast(IIf(IsBold, Me.RichTextBox1.SelectionFont.Style And Not FontStyle.Bold, Me.RichTextBox1.SelectionFont.Style Or FontStyle.Bold), FontStyle) _
)
///
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.