Public Class frmMain
    Private WithEvents x As New mClass
    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        x.MyProp.Add("Hallo")
    End Sub
    Private Sub x_MyPropChanged() Handles x.MyPropChanged
        MsgBox("Es wurde geändert!")
    End Sub
End Class
Public Class mClass
    Event MyPropChanged()
#Region "Variablen"
    'Deklerationen
    Private m_MyProp As New List(Of String) 'ist nur ein Beispiel
    Private oldMyProp As New List(Of String)
    Private WithEvents tmr As New Timer
#End Region
    Private Function isChanged() As Boolean
        If MyProp IsNot oldMyProp Then
            oldMyProp = MyProp
            Return True
        End If
    End Function
    Public Property MyProp() As List(Of String)
        Get
            Return m_MyProp
        End Get
        Set(ByVal value As List(Of String))
            MyProp = value
        End Set
    End Property
    Sub New()
        tmr.Enabled = True
        tmr.Interval = 1
    End Sub
    Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles tmr.Tick
        If isChanged() Then RaiseEvent MyPropChanged()
    End Sub
End Class