Public Class Form1
'///
    Private MyVar As String
    Public Property MyProperty() As String
        Get
            Return MyVar
        End Get
        Set(ByVal Value As String)
            If Not MyVar = Value Then
                RaiseEvent MyEvent("Die neue Nachricht: " + Value)
            End If
            MyVar = Value
        End Set
    End Property
    Public Event MyEvent(ByVal Message As String)
    Public Sub MyEventHandler(ByVal Message As String)
        MessageBox.Show(Message)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler Me.MyEvent, AddressOf Me.MyEventHandler
    End Sub
End Class