Public Class Computer
    Public Festplatten As New HardwareCollection()
End Class
 
Public Class Hardware
    Public Typ As String
    Public Hersteller As String
    Public Modell As String
End Class
 
Public Class HardwareCollection
    Inherits System.Collections.CollectionBase
    Public Sub Add(ByVal h As Hardware)
        MyBase.List.Add(h)
    End Sub
    Public Sub Remove(ByVal h As Hardware)
        MyBase.List.Remove(h)
    End Sub
End Class
 
Public Class Festplatte
    Inherits Hardware
    Public HddInterface As String
    Public Groesse As Int64
    Public Partitionen As Int16
End Class

Module Module1
    Sub Main()
        Dim objPC As New Computer()
        Dim hdd As New Festplatte()
        hdd.Hersteller = "IBM"
        objPC.Festplatten.Add(hdd)
        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