触发父属性

Question

如何更新父资产？我的示例代码如下。

当Demo2属性（Class2）设置一个值时，我想运行代码Demo属性（Class1）

任何帮助都将不胜感激。

'My example code
Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim d As New Class1
      d.Demo.Demo2 = True ' Set value
   End Sub
End Class

Public Class Class1
   Dim c As Class2

   Public Sub New()
      c = New Class2
   End Sub


   Public Property Demo As Class2
      Get
         Return c
      End Get
      Set(value As Class2)
         '**How can I run this row?**
         c = value
      End Set
   End Property
End Class

Public Class Class2
   Private b As Boolean

   Public Property Demo2 As Boolean
      Get
         Return b
      End Get
      Set(value As Boolean)
         b = value
      End Set
   End Property
End Class