Public Structure Packet
		<MarshalAs(UnmanagedType.ByValArray, Sizeconst:=12)> Dim Time As Byte()
		Dim Var1 As Byte
		Dim Var2 As Single
		Dim Var3 As Single
		Dim ID As Long
	End Structure

Private Function BulidStr(ByVal buff() As Byte, ByVal myType As System.Type) As _
  Object
	'Sicherheitscheck, dass wir genug Daten im Buffer haben
	If buff.Length < Marshal.SizeOf(myType) Then
		Throw New ArgumentException(String.Format("Das Array hat nicht genug" & _
  "Elemente, um ein Objekt vom Typ {0} zu erstellen", myType))
	End If
 
	Dim MyGC As GCHandle = GCHandle.Alloc(buff, GCHandleType.Pinned)
	'Try-Finally, um MyGC.Free() auch bei Fehler auszuführen
	Try
		Dim p As IntPtr = MyGC.AddrOfPinnedObject()
		Dim o As Object = Marshal.PtrToStructure(p, myType)
		Return o
	Finally
		MyGC.Free()
	End Try
End Function