Public Class Class1
   Private i As Integer
 
   Public Event changed()
 
   Public Property var() As Integer
      Get
         Return i
      End Get
      Set(ByVal value As Integer)
         i = value
         RaiseEvent changed()
      End Set
   End Property
 
   Private Sub Class1_changed() Handles Me.changed
      MsgBox(i.ToString)
   End Sub
End Class