Private Sub ToggleStyle(ByVal style As FontStyle) Try mbody.SelectionFont = New Font(mbody.SelectionFont, mbody.SelectionFont.Style Xor style) Catch ex As Exception End Try End Sub
Private Sub Boldmain_Click(sender As Object, e As EventArgs) Handles Boldmain.Click ToggleStyle(Drawing.FontStyle.Bold) End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)