Public Class TestClass
 
    Public Class Kanal
        Public Property MinValue As Double
        Public Property MaxValue As Double
        Public Property Einheit As String
    End Class
 
    Private _name As String
    Private _kanalliste As New List(Of Kanal)
 
    Public Sub New(ByVal name As String, ByVal Kanalzahl As Integer)
        _name = name
        For i As Integer = 0 To Kanalzahl - 1
            _kanalliste.Add(New Kanal)
        Next i
    End Sub
 
    Public Property Minvalue(ByVal index As Integer) As Double
        Get
            Return _kanalliste(index).MinValue
        End Get
        Set(ByVal value As Double)
            _kanalliste(index).MinValue = value
        End Set
    End Property
 
    Public Property Maxvalue(ByVal index As Integer) As Double
        Get
            Return _kanalliste(index).MaxValue
        End Get
        Set(ByVal value As Double)
            _kanalliste(index).MaxValue = value
        End Set
    End Property
 
End Class