Public Class TextBoxCC
    Inherits TextBox
    Private bg_farbe ' ursprüngliche Farbe vor Enter
 
    Public bgColor As Integer
    'Integervar, welche die BackgroundColor der Textbox beim Enter-Event steuert
    Public Property NewProperty() As Integer
        Get
            Return bgColor
        End Get
        Set(ByVal value As Integer)
            bgColor = value
        End Set
    End Property
 
 
    Private Sub TextBoxEx_Enter(sender As Object, e As EventArgs) Handles _
      Me.Enter
        bg_farbe = Me.BackColor
        Select Case bgColor
            Case 1
                Me.BackColor = Color.LightCyan
            Case 2
                Me.BackColor = Color.LightGoldenrodYellow
            Case Else
                Me.BackColor = Color.LightCyan
        End Select
 
 
    End Sub
 
    Private Sub TextBoxEx_Leave(sender As Object, e As EventArgs) Handles _
      Me.Leave
        Me.BackColor = bg_farbe
    End Sub
 
End Class

mit freundlichen Grüßen
Sven