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