Public Class Holz
        Private myBild, myNummer, myName, myZusatz As String
 
        Public Sub New(ByVal nummer$, ByVal name$, ByVal bild$, ByVal zusatz$)
            MyBase.New()
            myNummer = nummer
            myName = name
            myBild = bild
            myZusatz = zusatz
        End Sub
 
        Public Sub New()
            MyBase.New()
        End Sub
 
        Public Property Bild() As String
            Get
                Return myBild
            End Get
            Set(ByVal Value As String)
                myBild = Value
            End Set
        End Property
 
        Public Property Nummer() As String
            Get
                Return myNummer
            End Get
            Set(ByVal Value As String)
                myNummer = Value
            End Set
        End Property
 
        Public Property Name() As String
            Get
                Return myName
            End Get
            Set(ByVal Value As String)
                myName = Value
            End Set
        End Property
 
        Public Property Zusatz() As String
            Get
                Return myZusatz
            End Get
            Set(ByVal Value As String)
                myZusatz = Value
            End Set
        End Property
 
    End Class
 
    Private myAl As ArrayList
 
    Private Function GetHolz() As ArrayList
        'Funktion "simuliert" das Lesen aus der Datei
        Dim al As ArrayList = New ArrayList()
        Dim idx%
        Dim oHolz As Holz
 
        For idx = 0 To 2
            oHolz = New Holz("Nummer " & idx, "Name " & idx, "Bild " & idx, _
              "zusatz " & idx)
            al.Add(oHolz)
        Next
        Return al
    End Function
 
    Private Sub frmHolz_Load(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        myAl = GetHolz()
 
        With holznummercbo
            .DataSource = myAl
            .DisplayMember = "Nummer"
 
        End With
    End Sub
 
    Private Sub holznummercbo_SelectedIndexChanged( _
        ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
        holznummercbo.SelectedIndexChanged
        Dim oHolz As Holz = CType(holznummercbo.SelectedItem, Holz)
 
        holzzusatztxt.Text = oHolz.Zusatz
    End Sub