Namespace meinProgramm
 
 Class Kunde
     Inherits MyFramework.DataType.Model
 
   Public Property Vorname As String
   Public Property Nachname As String
   'usw.....
 
 End Class
 
End Namespace

Namespace MyFramework.DataType
 
 Public Class Model
        Inherits EventArgs
 
        Private WithEvents myTimer As New Timer
        Private _checkValString As String = ""
 
        Public Sub New()
            myTimer.Start()
            myTimer.Interval = 5000
        End Sub
 
        ''// EVENTS
        Private Event OnChanged As EventHandler(Of Model)
 
        '' // Functions
 
        Private Sub checkValuesChanged(ByVal sender As System.Object, ByVal e _
          As System.EventArgs) Handles myTimer.Elapsed
            Dim _modelType As Type = Me.GetType
            Dim _modelPropertiesInfo() As PropertyInfo = _
              _modelType.GetProperties()
            Dim _newCheckString As String = ""
            For i = 0 To _modelPropertiesInfo.Length - 1
                _newCheckString = _newCheckString & _modelPropertiesInfo( _
                  i).GetValue(Me, Nothing)
            Next
            If _newCheckString <> _checkValString Then
                _checkValString = _newCheckString
                RaiseEvent OnChanged(New Object, Me)
            End If
        End Sub
 
    End Class
 
End Namespace