Public Class Sprache
   Private pGerman, pEnglish, pFrench As String
 
   Public Sub New(ByVal germanText As String, ByVal englishText As String, _
     ByVal frenchText As String)
      German = germanText
      English = englishText
      French = frenchText
   End Sub
 
   Public Property German() As String
      Get
         Return pGerman
      End Get
      Set(ByVal value As String)
         pGerman = value
      End Set
   End Property
 
   Public Property English() As String
      Get
         Return pEnglish
      End Get
      Set(ByVal value As String)
         pEnglish = value
      End Set
   End Property
 
   Public Property French() As String
      Get
         Return pFrench
      End Get
      Set(ByVal value As String)
         pFrench = value
      End Set
   End Property
 
   Public Overrides Function ToString() As String
      Return English
   End Function
End Class

Dim myList As New List(Of Sprache)
      myList.Add(New Sprache("Deutsch", "German", "?"))
      myList.Add(New Sprache("Englisch", "English", "??"))
      myList.Add(New Sprache("Französisch", "French", "???"))
 
      ComboBox1.DataSource = myList
      ComboBox1.DisplayMember = "German"

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
      Dim index As Integer = ComboBox1.SelectedIndex
      ComboBox1.DisplayMember = CType(ComboBox1.SelectedItem, Sprache).ToString
      ComboBox1.SelectedIndex = index
   End Sub