Module Module1
    Sub Main()
        Dim objPC As New Computer()
        Dim hdd As New Festplatte()
 
        hdd.Hersteller = "IBM"
        objPC.Festplatten.Add(hdd)
 
        hdd=new Festplatte()
        hdd.Hersteller = "Western Digital"
        objPC.Festplatten.Add(hdd)
 
        Console.WriteLine("Anzahl Festplatten: " & objPC.Festplatten.Count)
        For Each hdd In objPC.Festplatten
            Console.WriteLine(hdd.Hersteller)
        Next
        Console.ReadLine()
    End Sub
End Module