Public Class A Dim _val As String Public Property PropertyTest() As String Get Return _val End Get Set(ByVal value As String) _val = value End Set End Property End Class
Public Class b Public PropertyTest As String End Class