<StructLayout(LayoutKind.Sequential, Pack:=1)> _
Structure DatenStruct
	Dim byte0 As Byte
	Dim Dint As Integer
	Dim real As Single
	Dim bit0 As Boolean
	Dim bit1 As Boolean
	Dim bit2 As Boolean
	Dim bit3 As Boolean
	Dim bit4 As Boolean
	Dim bit5 As Boolean
	Dim bit6 As Boolean
	Dim bit7 As Boolean
	Dim bytearray0 As Byte
	Dim bytearray1 As Byte
	Dim bytearray2 As Byte
	Dim bytearray3 As Byte
	Dim bytearray4 As Byte
	Dim bytearray5 As Byte
	Dim bytearray6 As Byte
	Dim bytearray7 As Byte
	Dim bytearray8 As Byte
	Dim bytearray9 As Byte
	Dim real0 As Single
	Dim real1 As Single
	Dim real2 As Single
End Structure
 
Dim Daten As Object
Dim DatenFeld As Array = CType(Daten, Array)
Dim struct As New DatenStruct