NEGRITA, CURSIVA, SUBRAYADO Y DOBLE SUBRAYADO.

Sub cambiarestilo(ByVal estiloselec As FontStyle)

        Dim estilo As FontStyle = RichTextBox1.SelectionFont.Style

        If estiloselec = FontStyle.Bold Then

            If RichTextBox1.SelectionFont.Bold = False Then
                estilo += FontStyle.Bold
            Else
                estilo -= FontStyle.Bold
            End If

        ElseIf estiloselec = FontStyle.Italic Then

            If RichTextBox1.SelectionFont.Italic = False Then
                estilo += FontStyle.Italic
            Else
                estilo -= FontStyle.Italic
            End If

        ElseIf estiloselec = FontStyle.Underline Then

            If RichTextBox1.SelectionFont.Underline = False Then
                estilo += FontStyle.Underline
            Else
                estilo -= FontStyle.Underline
            End If

        ElseIf estiloselec = FontStyle.Strikeout Then

            If RichTextBox1.SelectionFont.Strikeout = False Then
                estilo += FontStyle.Strikeout
            Else
                estilo -= FontStyle.Strikeout
            End If

        End If

        RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, estilo)

    End Sub

--------------------------------------

En cada Botón

cambiarestilo(FontStyle.Bold)
cambiarestilo(FontStyle.Italic)
cambiarestilo(FontStyle.Underline)
cambiarestilo(FontStyle.Strikeout)