Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Coll As ArrayList
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Coll = New ArrayList
        Coll.Add(New FeldCls(1, 2, Image.FromFile("C:\Dokumente und" & _
          "Einstellungen\Niko\Eigene Dateien\Eigene Bilder\Moonlight.jpg"), _
          "Feld1"))
        Coll.Add(New FeldCls(17, 42, Image.FromFile("C:\Dokumente und" & _
        "Einstellungen\Niko\Eigene Dateien\Eigene" & _
        "Bilder\Hintergründe\Beyond2.jpg"), "Feld2"))
 
        Speichern()
 
        Laden()
 
        MsgBox(Coll.Count)
    End Sub
 
    Public Sub Speichern()
        Try
            Dim myBinarySerializer As New _
              System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim FS As New IO.FileStream(Application.StartupPath & "\Felder.db", _
            IO.FileMode.Create)
            myBinarySerializer.Serialize(FS, Coll)
            FS.Close()
        Catch e As Exception
            MsgBox(e.ToString)
        End Try
    End Sub
 
    Public Sub Laden()
        Try
            Dim myBinarySerializer As New _
              System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim FS As New IO.FileStream(Application.StartupPath & "\Felder.db", _
            IO.FileMode.Open)
            Coll = myBinarySerializer.Deserialize(FS)
            FS.Close()
        Catch e As Exception
            MsgBox(e.ToString)
        End Try
    End Sub
 
 
End Class
 
<Serializable()> _
Public Class FeldCls
    Public X As Integer
    Public Y As Integer
    Public Bild As Image
    Public Beschreibung As String
 
    Public Sub New(ByVal vX As Integer, ByVal vY As Integer, ByVal vBild As _
      Image, ByVal vText As String)
        X = vX
        Y = vY
        Bild = vBild
        Beschreibung = vText
    End Sub
 
End Class