Blog olayına girdik şimdi şu değişkene event yazma örneğini gönderelim

Class Person
Event PropertyChanged(ByVal propertyName As String, ByVal newValue As Object)
    Dim m_Name As String
    Property Name() As String
        Get
            Return m_Name
        End Get
        Set(ByVal Value As String)
            If Value <> m_Name Then
                m_Name = Value
                RaiseEvent PropertyChanged("Name", m_Name)
            End If
        End Set
    End Property
End Class