Public Class Class1
 
    Private cPfad As String = ""
 
 
    Public Property pfad() As String
 
        Get
            Return cPfad
        End Get
        Set(ByVal value As String)
            cPfad = value
            RaiseEvent ValueChanged(Me, value)
        End Set
 
    End Property
 
 
    Public Event ValueChanged(ByVal obj As Object, ByVal value As String)
 
End Class

Dim WithEvents obj1 As New Class1

    Public Sub WertGeändert(ByVal obj As Object, ByVal value As String) Handles _
      obj1.ValueChanged
 
        MsgBox(value)
 
    End Sub