Private Sub Beschreibung_TextChanged(ByVal sender As System.Object, ByVal e _
        As System.EventArgs) Handles Beschreibung.TextChanged
        With Beschreibung
            .SelectAll() 'Den Text markieren
            .SelectionColor = Color.FromKnownColor(KnownColor.SteelBlue) 'Farbe 
            ' einstellen
            .SelectionFont = New Font(New FontFamily("Microsoft Sans Serif"), _
                      8.0F, FontStyle.Regular) 'Schrift einstellen
            .SelectionStart = Beschreibung.SelectionLength 'Selection entfernen
        End With
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus