Dala by se vyvolat událost v setleru vlastnosti řídící proměnnou. asi takto:
Private _promena As Integer
Public Event Zmena(ByVal cislo As Integer)
Public Property Promena() As Integer
Get
Return Me._promena
End Get
Set(ByVal value As Integer)
Me._promena = value
RaiseEvent Zmena(value)
End Set
End Property
Private Sub Form1_Zmena(ByVal cislo As Integer) Handles Me.Zmena
'něco
End Sub
|