Private Sub RichTextBox1_KeyPress(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress
        If CBool(Asc(e.KeyChar) = Keys.Back Or Asc(e.KeyChar) = Keys.Escape) = _
        False Then
            RichTextBox1.SelectedRtf = "{\rtf1\ansi{\fonttbl{\fcharset;}}" & _
            "\pard\dn" & Math.Floor(-1.5 * RichTextBox1.SelectionCharOffset) & _
            "\fs24 " & e.KeyChar & "}"
            e.KeyChar = CChar("")
        End If
    End Sub

mfgMeik MillerMein beste Code:If then