Public Class MyTextBox
    Inherits TextBox
 
    Private m_ValidPath As Boolean = False
 
    Public ReadOnly Property ValidPath() As Boolean
        Get
            Return Me.m_ValidPath
        End Get
    End Property
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        ' Gibt an, ob der Pfad (einer Datei) gültig ist
        ' Kann über Eigenschaft 'ValidPath' abgefragt werden
        Me.m_ValidPath = IO.File.Exists(MyBase.Text)
 
        ' Farb-Spielerei
        If MyBase.Text.Trim.Length = 0 Then
            MyBase.BackColor = Color.White
        Else
            If Me.ValidPath Then
                MyBase.BackColor = Color.Blue
            Else
                MyBase.BackColor = Color.Red
            End If
        End If
 
        MyBase.OnTextChanged(e)
    End Sub
 
End Class