Public Class AEBpropertiesC
 
    Const arrlength As Integer = 8 'Länge der Array-Member
 
    Dim _ID As Integer
 
    Dim _Inputs(arrlength) As Boolean
    Dim _Outputs(arrlength) As Boolean
 
    Dim _IO_Anzahl As Integer
 
    Dim _IOEXB(arrlength) As IOEXBproperties
 
 
    Public Property Inp(ByVal index As Integer) As Boolean
        Get
            Return _Inputs(index)
        End Get
 
        Set(value As Boolean)
           _Inputs(index) = value
        End Set
    End Property
 
 
    Public ReadOnly Property Outp(ByVal index As Integer) As Boolean
        Get
           Return _Outputs(index)
        End Get
    End Property
 
 
    Public Property ioexb(ByVal index As Integer) As IOEXBproperties
        Get
           Return _IOEXB(index)
        End Get
 
        Set(value As IOEXBproperties)
           _IOEXB(index) = value
        End Set
    End Property
 
End Class

'innerhalb der Klasse AEB
 
   Private AEBXXX(3) As AEBpropertiesC 'Es entstehen keine Class-Instanzen 
 
   Private IsInitialized As Boolean
 
   Private Sub Init()
 
        If IsInitialized Then Exit Sub
 
        'Instanzen erstellen
        For i As Integer = 0 To AEBXXX.Length - 1
            AEBXXX(i) = New AEBpropertiesC
        Next i
        IsInitialized = True
   End Sub
 
 
   Public Sub New(ByVal icanid As Integer, ByVal IO_Anzahl As Integer, ByVal _
      IOEXBsetting As IOEXBproperties, ByVal control As Control, ByVal x As _
      Integer, ByVal y As Integer)
 
      Init() 'Instanzen im Array sicher stellen
 
      Dim iAEBID As Integer = icanid
 
      For i As Integer = 0 To 7
         'Structure komplett auf Property zuweisen
         AEBXXX(iAEBID).ioexb(i) = IOEXBsetting 
      Next i  
 
   End Sub