Imports System.ComponentModel
 
Public Class RichTextBoxBind
    Inherits System.Windows.Forms.RichTextBox
    Implements System.ComponentModel.INotifyPropertyChanged
 
    Public Event PropertyChanged(sender As Object, _
    e As System.ComponentModel.PropertyChangedEventArgs) _
    Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
 
    Dim rtfchanged As New PropertyChangedEventArgs("Rtf")
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
        MyBase.OnTextChanged(e)
        RaiseEvent PropertyChanged(Me, rtfchanged)
    End Sub
 
    Protected Overridable Sub OnRtfChanged(ByVal e As System.EventArgs)
        RaiseEvent PropertyChanged(Me, rtfchanged)
    End Sub
 
    <Bindable(True), RefreshProperties(RefreshProperties.All), _
     SettingsBindable(True), DefaultValue(""), Category("Appearance")> _
    Public Shadows Property Rtf() As String
        Get
            Return MyBase.Rtf
        End Get
        Set(ByVal value As String)
            MyBase.Rtf = value
            RaiseEvent PropertyChanged(Me, rtfchanged)
        End Set
    End Property
 
    Protected Overrides Sub OnBindingContextChanged(e As System.EventArgs)
        MyBase.OnBindingContextChanged(e)
    End Sub
End Class