Class Rad
    Private m_durchmesser As Integer = 100
    
    Public Property Durchmesser() As Integer
        Get
            Return m_durchmesser
        End Get
        Set(ByVal value As Integer)
            If m_durchmesser > 0 Then
                m_durchmesser = value
            End If
        End Set
    End Property
End Class
 
Class Auto
    Private m_rad As New Rad()
    
    Public Property Rad() As Rad
        Get
            Return m_rad
        End Get
        Set(ByVal value As Rad)
            m_rad = value
        End Set
    End Property
End Class

Private Shared Sub Main(ByVal args As String())
    Dim auto As New Auto()
    Console.WriteLine(auto.Rad.Durchmesser) ' 100
    auto.Rad.Durchmesser = 200
End Sub

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?