Change-Event abfangen

Private Sub VertragAddEdit_Created()
'Definiert einen Event-Handler, wenn das Feld "VertragHauptsparte" geändert wird und führt anschließend die Prozedur "PropertyChanged" aus

  Dispatchers.Main.BeginInvoke(
    Sub()
      AddHandler DirectCast(Me.VertragVermitteltProperty, INotifyPropertyChanged).PropertyChanged, AddressOf PropertyChanged
    End Sub
  )
 
End Sub
 
Private Sub PropertyChanged(ByVal sender As Object, ByVal e As PropertyChangedEventArgs)
 
...
 
End Sub