Private Devisen As Devise()
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Devisen = New Devise() { _
                                    New Devise("US-Dollar", 0.832, "USD"), _
                                    New Devise("Jap. Yen", 2.552, "JAP"), _
                                    New Devise("Brit. Pfund", 1.6789, "GPD") _
                                }
 
        '// Variante 1:
        Me.ListBox1.DataSource = Devisen
        Me.ListBox1.DisplayMember = "Name"
        Me.ListBox1.ValueMember = "Amount"
 
        '// Variante 2:
        Me.ListBox1.Items.AddRange(Devisen)
 
        '// Variante 3:
        For Each devise As Devise In Devisen
            Me.ListBox1.Items.Add(devise)
        Next
 
    End Sub
 
 
    Private Class Devise
 
        Private _Name As String
        Private _Amount As Double
        Private _Currency As String
 
        Public Property Name() As String
            Get
                Return _Name
            End Get
            Set(ByVal Value As String)
                _Name = Value
            End Set
        End Property
 
        Public Property Currency() As String
            Get
                Return _Currency
            End Get
            Set(ByVal Value As String)
                _Currency = Value
            End Set
        End Property
 
        Public Property Amount() As Double
            Get
                Return _Amount
            End Get
            Set(ByVal Value As Double)
                _Amount = Value
            End Set
        End Property
 
        Public Sub New(ByVal Name As String, _
                       ByVal Amount As Double, _
                       ByVal Currency As String)
            Me._Name = Name
            Me._Amount = Amount
            Me._Currency = Currency
        End Sub
 
        Public Overrides Function ToString() As String
            Return _Name
        End Function
 
    End Class