<System.Serializable()> _
<System.Runtime.InteropServices.StructLayout _
(System.Runtime.InteropServices.LayoutKind.Sequential)> _
Public Structure tTest
        Public strA As String
        Public intA As Integer
        Public blnA As Boolean
End Structure
 
<System.Serializable()> _
<System.Runtime.InteropServices.StructLayout 
(System.Runtime.InteropServices.LayoutKind.Sequential)> _
Public Structure tTemp
        Public tT As tTest
        Public lngA As Long
End Structure

   <System.Serializable()> _
   Public Class tTempArr
 
        'Gekapseltes Array 
        Private _tarr() As tTemp
 
        'Deklaration per Konstruktor 
        Public Sub New(ByVal upperbound As UInteger)
            ReDim _tarr(CInt(upperbound))
        End Sub
 
        Public ReadOnly Property UpperBound() As Integer
            Get
                Return _tarr.GetUpperBound(0)
            End Get
        End Property
 
        'Zugriff auf Array-Element 
        Default Public Property Element _
            (ByVal index As Integer) As tTemp
            Get
                Return _tarr(index)
            End Get
            Set(ByVal value As tTemp)
                _tarr(index) = value
            End Set
        End Property
 
        'Speichern 
        Public Function Serialize _
        (ByVal Filename As String) As Boolean
 
            Dim fs As System.IO.FileStream
            Try
                Dim bf As New System.Runtime.Serialization. _
                Formatters.Binary.BinaryFormatter
                fs = New System.IO.FileStream(Filename, _
                                System.IO.FileMode.OpenOrCreate, _
                                System.IO.FileAccess.Write, _
                                System.IO.FileShare.None)
                bf.Serialize(fs, Me) : fs.Close() : Return True
            Catch ex As System.Exception
                If fs IsNot Nothing Then fs.Close()
                fs.Close() : Return False
            End Try
        End Function
 
        'Laden  
        Public Function Deserialize _
        (ByVal Filename As String) As Boolean
            Try
                Dim bf As New System.Runtime.Serialization. _
                Formatters.Binary.BinaryFormatter
                Dim fs As New System.IO.FileStream(Filename, _
                                      System.IO.FileMode.Open, _
                                      System.IO.FileAccess.Read, _
                                      System.IO.FileShare.Read)
                Dim inp As tTempArr = CType(bf.Deserialize(fs), tTempArr)
                fs.Close()
                _tarr = inp._tarr : Return True
            Catch ex As System.Exception
                Return False
            End Try
        End Function
   End Class

     Dim ttm As New tTemp
     With ttm
         With .tT
                .strA = "stra"
                .intA = 100
                .blnA = True
         End With
     End With
 
     'Klassen-Instanz (Array) erstellen  
     Dim tarr As New tTempArr(10)
     For i As Integer = 0 To 10
        ttm.lngA = i : tarr(i) = ttm
     Next i
 
     'Array in File speichern  
     If Not tarr.Serialize("J:\Daten\ttemparr.ser") Then Stop
 
     'Array-Daten aus File laden 
     Dim tarr2 As New tTempArr(0)
     If Not tarr2.Deserialize("J:\Daten\ttemparr.ser") Then Stop