Public Class frmClassBinding
 
    Private Class Person
        Public Property _Name As String
        Public Property _alter As Integer
        Public Property _Vorname As String
 
        Public ReadOnly Property Fullname As String
            Get
                Return _Name & " " & _Vorname
            End Get
        End Property
 
        Public Sub New()
 
        End Sub
 
        Public Sub New(name As String, Vorname As String, Alter As Integer)
            _Name = name
            _Vorname = Vorname
            _alter = Alter
        End Sub
 
    End Class
 
 
    Dim cbo As New ComboBox With {.Parent = Me, .Width = 300}
    Dim lstPerson As New List(Of Person)
 
 
    Private Sub frmClassBinding_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        lstPerson.Add(New Person With {._alter = 75, ._Name = "Woratschek", _
          ._Vorname = "Jusssip"})
        lstPerson.Add(New Person("Kubitschek", "Maria", 68))
 
        cbo.DisplayMember = "Fullname"
        cbo.DataSource = lstPerson
 
    End Sub
End Class