Imports System.ComponentModel
Imports System.Reflection
 
Public Class Form1
 
    Private mDataClass As MyNormalDataClass = Nothing
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        mDataClass = New MyBindableDataClass()
        Me.BindOnTextBox1(mDataClass, "Test")
        'mDataClass = New MyNormalDataClass
        'Me.BindOnTextBox1(mDataClass, "Test")
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As System.Object, e As _
      System.EventArgs) Handles TextBox2.TextChanged
        mDataClass.Test = TextBox2.Text
    End Sub
 
 
#Region "Binding"
 
 
    Private WithEvents mBindedObject As Object = Nothing
    Private mBindedProperty As String = String.Empty
 
    Private Sub BindOnTextBox1(o As Object, prp As String)
        If mBindedObject IsNot Nothing AndAlso TypeOf mBindedObject Is _
          INotifyPropertyChanged Then
            RemoveHandler CType(mBindedObject, _
            INotifyPropertyChanged).PropertyChanged, AddressOf _
            Me.BindedObject_PropertyChanged
        End If
        mBindedObject = o
        mBindedProperty = prp
        If o IsNot Nothing AndAlso TypeOf o Is INotifyPropertyChanged Then
            AddHandler CType(o, INotifyPropertyChanged).PropertyChanged, _
              AddressOf Me.BindedObject_PropertyChanged
        End If
    End Sub
 
    Private Sub BindedObject_PropertyChanged(sender As Object, e As _
      PropertyChangedEventArgs)
        If e.PropertyName = mBindedProperty Then
            Dim t As Type = mBindedObject.GetType
            For Each prpInfo As PropertyInfo In t.GetProperties
                If prpInfo.Name = mBindedProperty And prpInfo.CanRead Then
                    TextBox1.Text = prpInfo.GetValue(mBindedObject, Nothing)
                End If
            Next
        End If
    End Sub
 
 
#End Region
 
 
End Class
 
 
Public Class MyBindableDataClass
    Inherits MyNormalDataClass
    Implements System.ComponentModel.INotifyPropertyChanged
 
    Public Event PropertyChanged(sender As Object, e As _
      System.ComponentModel.PropertyChangedEventArgs) Implements _
      System.ComponentModel.INotifyPropertyChanged.PropertyChanged
 
    Public Overrides Property Test As String
        Get
            Return MyBase.Test
        End Get
        Set(value As String)
            MyBase.Test = value
            RaiseEvent PropertyChanged(Me, New _
              System.ComponentModel.PropertyChangedEventArgs("Test"))
        End Set
    End Property
 
End Class
 
Public Class MyNormalDataClass
    Private mTest As String = String.Empty
    Public Overridable Property Test As String
        Get
            Return mTest
        End Get
        Set(value As String)
            mTest = value
        End Set
    End Property
End Class