Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold) End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If Not IsNothing(RichTextBox1.SelectionFont) Then RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, FontStyle.Bold) Else RichTextBox1.SelectionFont = New Font(????, FontStyle.Bold) End If End Sub