<code><font color=green>' Farbschema anwenden</font>
 
<font color=#000099>Private</font> <font color=#000099>Sub</font> _
  RichTextBox1_KeyPress(KeyAscii <font color=#000099>As</font> <font _
  color=#000099>Integer</font>)
  <font color=#000099>With</font> RichTextBox1
    Select Case KeyAscii
      <font color=green>' Anführungszeichen und Hochkomma</font>
      Case 34, 39
        .SelColor = ColorK
 
      <font color=green>' Spitze Klammern, Gleichheitszeichen</font>
      Case 60 <font color=#000099>To</font> 62
        .SelColor = TagColor
 
        <font color=green>' Änderung</font>
        <font color=#000099>If</font> KeyAscii = 62 <font _
          color=#000099>Then</font>
          .SelText = Chr$(KeyAscii)
          KeyAscii = 0
          .SelColor = NormalColor
        <font color=#000099>End</font> <font color=#000099>If</font>
 
      <font color=green>' alle anderen Zeichen</font>
<font color=green>'      Case Else</font>
<font color=green>'        .SelColor = NormalColor</font>
    <font color=#000099>End</font> Select
  <font color=#000099>End</font> <font color=#000099>With</font>
<font color=#000099>End</font> <font color=#000099>Sub</font></code>