Private pTest As Integer
      Public Property Test() As Integer
         Get
            Return pTest
         End Get
         Set(ByVal value As Integer)
            If pTest <> value Then
               Dim EventArgs As New MeineEventArgs(pTest, value)
 
               OnPropertyChanged(EventArgs)
 
               If Not EventArgs.Cancel Then pTest = value
            End If
         End Set
      End Property
 
      Protected Friend Sub OnPropertyChanged(ByVal e As MeineEventArgs)
         RaiseEvent PropertyChanged(Me, e)
      End Sub