Public Class AEB
 
 
    Public Structure IOEXBproperties
        Dim safetylevelin As safetyoptions
        Dim safetylevelout As safetyoptions
        Dim autopos As yesno
        Dim manpos As manpos
        Dim AEBIDout As Integer
    End Structure
 
    Public Structure AEBproperties
        Dim ID As Integer
        Dim Inputs() As Boolean
        Dim Outputs() As Boolean
        Dim IO_Anzahl As Integer
        Dim IOEXB() As IOEXBproperties
    End Structure
 
 
    Private AEBXXX(3) As AEBproperties
 
 
 
 
 
    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)
        Dim iAEBID As Integer
 
        iAEBID = icanid
 
           For i As Integer = 0 To 7
 
            With AEBXXX(iAEBID).IOEXB(i)
 
                .safetylevelin = IOEXBsetting.safetylevelin
                .safetylevelout = IOEXBsetting.safetylevelout
                .autopos = IOEXBsetting.autopos
                .manpos = IOEXBsetting.manpos
                .AEBIDout = IOEXBsetting.AEBIDout
            End With
        Next
 
        zeichneAEBmitIOEXB(iAEBID, IO_Anzahl, control, New Point(x, y))
 
    End Sub

Enum safetyoptions
        not_used
        single_
        dual
        quad
    End Enum
 
Enum yesno
        no
        yes
    End Enum
 
    Enum manpos
        _3_to_5_8_14
        _6_to_8_11_17
        _9_to_11_14_20
        _12_to_14_17_23
        _15_to_17_20__
        _18_to_20_23__
        _21_to_23____
    End Enum

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)
 
 
        Dim iAEBID As Integer
 
        iAEBID = icanid
 
        Array.Resize(AEBXXX(icanid).IOEXB, 8) 'Deklaration des Array
 
        For i As Integer = 0 To 7
            AEBXXX(iAEBID).IOEXB(i) = IOEXBsetting
        Next i
 
        zeichneAEBmitIOEXB(iAEBID, IO_Anzahl, control, New Point(x, y))
 
End Sub

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