Imports System.ComponentModel
 
Public Class Class1
   Implements INotifyPropertyChanged
 
   Private m_Vorname As String
   Private m_Nachname As String
 
   Public Event PropertyChanged(ByVal sender As Object, ByVal e As _
     PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
 
   Public Property Vorname() As String
      Get
         Return m_Vorname
      End Get
      Set(ByVal value As String)
         If value <> m_Vorname Then
            m_Vorname = value
            NotifyPropertyChanged("Vorname")
         End If
      End Set
   End Property
 
   Public Property Nachname() As String
      Get
         Return m_Nachname
      End Get
      Set(ByVal value As String)
         If value <> m_Nachname Then
            m_Nachname = value
            NotifyPropertyChanged("Nachname")
         End If
      End Set
   End Property
 
   Private Sub NotifyPropertyChanged(ByVal info As String)
      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
   End Sub
 
End Class

Public Class Form1
 
   Private WithEvents clsName As New Class1
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      clsName.Nachname = "Wacker"
      clsName.Vorname = "Willi"
   End Sub
 
 
   Private Sub clsName_PropertyChanged(ByVal sender As Object, ByVal e As _
     System.ComponentModel.PropertyChangedEventArgs) Handles _
     clsName.PropertyChanged
      Console.WriteLine("Prperety Changed Event: {0}", e.PropertyName)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control