Inherits DataGridTextBoxColumn
    Sub New()
        AddHandler Me.TextBox.TextChanged, AddressOf TB_TextChanged
    End Sub
 
    'Bestimmte Kürzel einfärben
    Sub TB_TextChanged(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs)
        With CType(sender, DataGridTextBox)
            If .Text = "AS" Then
                .ForeColor = System.Drawing.Color.Red
            End If
        End With
    End Sub