Public Class Class1
    Inherits TextBox
 
    Private _changedeventenabled As Boolean = True
 
    Public Property ChangedEventEnabled() As Boolean
        Set(value As Boolean)
            _changedeventenabled = value
        End Set
        Get
            Return _changedeventenabled
        End Get
    End Property
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        If _changedeventenabled Then MyBase.OnTextChanged(e)
    End Sub
End Class