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