Public Class frmDemo
 
 
    'In dieser Klasse wird keine Struktur deklariert,
    'sondern die Struktur aus Graphic verwendet
    Dim pc(2) As Graphic.Pic   'Array von Bildern
 
    Dim gr As New Graphic
 
    Private Sub frmDemo_Load(sender As Object, 
            e As EventArgs) Handles MyBase.Load
 
        'Array der Bilder mit Daten füllen
        pc(0).Name = "Bild0"
        pc(0).Sz = New Size(30, 40)
        pc(1).Name = "Bild1"
        pc(1).Sz = New Size(60, 70)
        pc(2).Name = "Bild2"
        pc(2).Sz = New Size(90, 100)
 
        'Übertragung von pc-Array in den BildListe-Member 
        'der Instanz gr der Klasse Graphic
        gr.BildListe.AddRange(pc)
 
        'und noch mal die 3 Bilder an Liste anhängen
        gr.BildListe.AddRange(pc)
 
        Dim bildzahl As Integer = gr.BildListe.Count
 
        'Lese-Zugriff auf Daten des vorletzen Bildes in der Liste
        With gr.BildListe(bildzahl - 2)
            Me.Text = .Name & " " & .Sz.ToString
        End With
 
    End Sub
 
End Class
 
 
Public Class Graphic
 
    'Deklaration der Struktur
    Public Structure Pic
        Public Name As String
        Public Sz As Size
    End Structure
 
    'Hier werden die Bilddaten gespeichert
    Public BildListe As New List(Of Pic)
 
End Class