Imports System.Runtime.InteropServices
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Class clsZyklSendData
	Public Shared Wert0 As Int32
	Public Shared Wert1 As Int32
	Public Shared Wert2 As Int32
	Public Shared Wert3 As Int32
	Public Shared Wert4 As Int16
	Public Shared Wert5 As Int16
	Public Shared Wert6 As Int16
	Public Shared Wert7 As Int16
	<MarshalAsAttribute(UnmanagedType.ByValArray, SizeConst:=100)> Public _
  Shared Data() As Byte
End Class

	Private Function RawSerialize(ByVal anything As Object) As Byte()
		Dim rawsize As Integer = Marshal.SizeOf(anything)
		Dim buffer As IntPtr = Marshal.AllocHGlobal(rawsize)
		Marshal.StructureToPtr(anything, buffer, False)
		Dim rawdatas(rawsize - 1) As Byte
		Marshal.Copy(buffer, rawdatas, 0, rawsize)
		Marshal.FreeHGlobal(buffer)
		Return rawdatas
	End Function
 
	Private Function RawDeserialize(ByVal rawdatas As Byte(), ByVal anytype As _
  Type) As Object
		Dim rawsize As Integer = Marshal.SizeOf(anytype)
		If rawsize > rawdatas.Length Then
			Return Nothing
		End If
		Dim buffer As IntPtr = Marshal.AllocHGlobal(rawsize)
		Marshal.Copy(rawdatas, 0, buffer, rawsize)
		Dim retobj As Object = Marshal.PtrToStructure(buffer, anytype)
		Marshal.FreeHGlobal(buffer)
		Return retobj
	End Function