Private mName As String
Private mReifen As Reifen
Private Sub Class_Initialize()
Set mReifen = New Reifen
End Sub
Public Property Get Name() As String
Name = mName
End Property
Public Property Let Name(ByVal newName As String)
mName = newName
End Property
Public Property Get ReifenEigenschaft() As Reifen
ReifenEigenschaft = mReifen
End Property
Public Property Set ReifenEigenschaft(ByVal ReifenEigenschaft As Reifen)
Set mReifen = ReifenEigenschaft
End Property
Private mGummi As String
Private Sub Class_Initialize()
mGummi = "nichts"
End Sub
Public Property Get Gummi() As String
Gummi = mGummi
End Property
Public Property Let Gummi(ByVal newGummi As String)
mGummi = newGummi
End Property
Private Sub Hauptprogramm()
Dim neuesAuto As Auto
Set neuesAuto = New Auto
neuesAuto.Name = "Rosti"
Dim DummyReifen As Reifen
Set DummyReifen = New Reifen
DummyReifen.Gummi = "Vollgummi"
Set neuesAuto.ReifenEigenschaft = DummyReifen
Unterprogramm neuesAuto
End Sub
Private Sub Unterprogramm(ByVal newAuto As Auto)
Dim Reifengummi As String
Reifengummi = newAuto.ReifenEigenschaft.Gummi
MsgBox (Reifengummi)
End Sub