<Serializable()> _
    Public Class Unterlager
    Public Event Änderung(ByVal sender As Object, ByVal e As Änderungen)
    Private Unterlager As New List(Of Lagerdaten)
 
    Structure Lagerdaten
        Dim Bla1 As String
        Dim Bla2 As String
        Dim Bla3 As String
        Dim Bla4 As String
        Dim Bla5 As String
    End Structure
 
    Enum Änderungen
        Hinzufügen
        Löschen
        Ändern
    End Enum
 
    Sub New()
    End Sub
 
    Sub New(ByVal Daten As Lagerdaten)
        Unterlager.Add(Daten)
        RaiseEvent Änderung(Daten, Änderungen.Hinzufügen)
    End Sub
    Sub Add(ByVal Daten As Lagerdaten)
        Unterlager.Add(Daten)
        RaiseEvent Änderung(Daten, Änderungen.Hinzufügen)
    End Sub
 
    Sub Remove(ByVal Daten As Lagerdaten)
        Unterlager.Remove(Daten)
        RaiseEvent Änderung(Daten, Änderungen.Löschen)
    End Sub
 
    Sub Remove(ByVal Index As Integer)
        Dim RemovedData As Lagerdaten
        RemovedData = Unterlager.Item(Index)
        Unterlager.RemoveAt(Index)
        RaiseEvent Änderung(RemovedData, Änderungen.Löschen)
    End Sub
 
    Private Sub Save()
        'Daten Speichern mit Serializ
    End Sub
 
    Sub Open(ByVal Path As String)
        'Daten Laden
    End Sub
 
End Class

Public Class Form1
    Dim WithEvents ULager As New Unterlager
    Dim Hauplager As New Collection
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveHauptLager()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim Daten As New Unterlager.Lagerdaten
        Daten.Bla1 = "BLABLABLA 1"
        Daten.Bla2 = "BLABLABLA 2"
        Daten.Bla3 = "BLABLABLA 3"
        Daten.Bla4 = "BLABLABLA 4"
        Daten.Bla5 = "BLABLABLA 5"
 
 
        ULager.Add(Daten)
        Hauplager.Add(ULager)
 
    End Sub
 
    Private Sub ULager_Änderung(ByVal sender As Object, ByVal e As _
      Unterlager.Änderungen) Handles ULager.Änderung
        Select Case e
            Case Unterlager.Änderungen.Ändern
                MsgBox("Daten wurden geändert", MsgBoxStyle.Information)
            Case Unterlager.Änderungen.Hinzufügen
                MsgBox("Daten wurden Hinzugefügt", MsgBoxStyle.Information)
            Case Unterlager.Änderungen.Löschen
                MsgBox("Daten wurden gelöscht", MsgBoxStyle.Information)
        End Select
    End Sub
 
    Private Sub SaveHauptLager()
        'Speichern der Collection
    End Sub
End Class