Imports System.IO
Imports System.Runtime.InteropServices
 
Public Class Form1
    Public Structure Einfach
        Public Hallo As Integer
        Public Welt As Long
        Public schwierig As String
        Public nochschwieriger(,) As Integer
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim ef As Einfach
        ef.Hallo = 10
        ef.Welt = -99999999999999999
        ef.schwierig = "Bar Foo"
        ReDim ef.nochschwieriger(1, 1)
        ef.nochschwieriger(0, 0) = 99
        ef.nochschwieriger(0, 1) = 88
        ef.nochschwieriger(1, 0) = 77
        ef.nochschwieriger(1, 1) = 66
 
        Dim ms As New MemoryStream()
        Write(Of Einfach)(ms, ef)
        ms.Position = 0
        ef = Read(Of Einfach)(ms)
 
 
    End Sub
 
    Public Sub Write(Of T)(ByRef dest As Stream, ByVal struct As T)
        Dim size As Integer = Marshal.SizeOf(struct)
        Dim mem As IntPtr = Marshal.AllocCoTaskMem(size)
        Dim data(0 To size - 1) As Byte
        Marshal.StructureToPtr(struct, mem, False)
        Marshal.Copy(mem, data, 0, size)
 
        Dim s() As Byte = BitConverter.GetBytes(size)
        dest.Write(s, 0, s.Length)
        dest.Write(data, 0, size)
    End Sub
 
    Public Function Read(Of T)(ByRef source As Stream) As T
        Dim size As Integer
        Dim s(0 To 3) As Byte
        source.Read(s, 0, 4)
        size = BitConverter.ToInt32(s, 0)
 
        Dim ptr As IntPtr = Marshal.AllocCoTaskMem(size)
        Dim data(0 To size - 1) As Byte
        source.Read(data, 0, size)
        Marshal.Copy(data, 0, ptr, size)
        Dim st As T = Marshal.PtrToStructure(ptr, GetType(T))
        Marshal.FreeCoTaskMem(ptr)
 
        Return st
    End Function
End Class

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008