Public Class SteurungsStruktur
  Public Schritt as Integer
  Public FunktionsNummer as Integer
  Public Parameter(8) as UInt16
  Public AnwenderBit(8) as Boolean
  Public StandartBit(8) as Boolean
 
  public sub New()
  end Sub
End Class

  Dim myCol as new SteurungsStrukturCollection()
  Dim mySteuer as SteurungsStruktur
 
  while DatenDa 
    mySteuer = new  SteurungsStruktur()
    mySteuer.Schritt = LeseSchritt()
    mySteuer.FunktionsNummer  = LeseFuncNr()
    mySteuer.Parameter = LeseParamter()
    mySteuer.AnwenderBit  = LeseAnwBits()
    mySteuer.StandartBit = leseStdBit()
 
    myCol.Add( mySteuer )
  End While

  Dim mySteuer as SteurungsStruktur = myCol(12) ' oder welches element auch 
  ' immer.

  for each mySteuer as SteurungsStruktur in myCol
    ' mach was mit mySteuer
  end For