Class A
   Private clsB As B
   Private blnCanChange As Boolean
 
   Public Property CanChange() As Boolean
      Get
         Return Me.blnCanChange
      End Get
      Set(ByVal value As Boolean)
         Me.blnCanChange = value
      End Set
   End Property
 
   Public Property B() As B
      Get
         Return Me.clsB
      End Get
      Set(ByVal value As B)
         Me.clsB = B
      End Set
   End Property
End Class
 
Class B
   Private pFeld1 As Integer
 
   Public Property Feld1() As Integer
      Get
         Return Me.pFeld1
      End Get
      Set(ByVal value As Integer)
         ' Hier müsste die Prüfung hin, ob CanChange in Klasse A true zurückgibt
         Me.pFeld1 = value
      End Set
   End Property
End Class