Private Sub ToolStripMenuItem12_Click() Handles ToolStripMenuItem12.Click
        If ToolStripMenuItem12.Checked = True Then
            Me.ToolStripMenuItem12.BackgroundImage = _
              Global.WindowsApplication1.My.Resources.Resources.Image2
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, _
            FontStyle.Underline)
        End If
        If ToolStripMenuItem12.Checked = False Then
            Me.ToolStripMenuItem12.BackgroundImage = _
              Global.WindowsApplication1.My.Resources.Resources.leer
            RichTextBox1.SelectionFont = New Font(RichTextBox1.SelectionFont, _
            FontStyle.Regular)
        End If
    End Sub