gs.data(0) = 1

'Strict muss off sein, da wir den Datentyp von GETSTATUS.data nicht 
' ausschreiben können .
'(Der Typ ist irgendetwas in der Art <data>e__FixedBuffer0 )
Option Strict Off
Imports System.Runtime.InteropServices
Imports DLLConnection
 
Module GetStatusHelper
	Public Function GetBytesFromStatusStruct(ByVal gs As GETSTATUS) As Byte()
		Dim gch As GCHandle = GCHandle.Alloc(gs.data, GCHandleType.Pinned)
		Try
			Dim pStruct As IntPtr = gch.AddrOfPinnedObject()
			Dim buff(gs.size - 1) As Byte
			Marshal.Copy(pStruct, buff, 0, buff.Length)
			Return buff
		Catch ex As Exception
			Throw
		Finally
			gch.Free()
		End Try
	End Function
 
	Public Function GetStatusStructFromBytes(ByVal buffer As Byte()) As GETSTATUS
		If buffer Is Nothing Then
			Throw New ArgumentNullException("buffer")
		End If
		Dim size As Integer = buffer.Length
		If size > 120 Then
			size = 120
		End If
		Dim localBuffer(119) As Byte
		System.Buffer.BlockCopy(buffer, 0, localBuffer, 0, size)
		Dim gch As GCHandle = GCHandle.Alloc(localBuffer, GCHandleType.Pinned)
		Try
			Dim p As IntPtr = Marshal.UnsafeAddrOfPinnedArrayElement(localBuffer, 0)
			Dim gs As GETSTATUS
 
			'Da folgendes nicht geht, muss das Modul Option Strict Off haben
			'Dim o As GETSTATUS.<data>e__FixedBuffer0 
			Dim o As Object = Marshal.PtrToStructure(p, gs.data.GetType())
			gs.size = CType(size, Byte)
			gs.data = o
			Return gs
		Catch ex As Exception
			Throw
		Finally
			gch.Free()
		End Try
 
	End Function
End Module