Public Class Form1
 
    Public Class MyListItem
 
        Public Property DisplayValue As String
        Public Property ItemData As Integer
 
        Public Sub New(ByVal value As String, ByVal data As Integer)
            _DisplayValue = value
            _ItemData = data
        End Sub
 
        Public Overrides Function ToString() As String
            Return _DisplayValue
        End Function
 
    End Class
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles MyBase.Load
 
        ListBox1.Items.Add(New MyListItem("item1", 123))
        ListBox1.Items.Add(New MyListItem("item2", 234))
        ListBox1.Items.Add(New MyListItem("item3", 345))
 
        Dim lomli As New List(Of MyListItem)
 
        lomli.Add(New MyListItem("item1", 123))
        lomli.Add(New MyListItem("item2", 234))
        lomli.Add(New MyListItem("item3", 345))
 
        ListBox2.DataSource = lomli
        ListBox2.DisplayMember = "DisplayValue"
 
    End Sub
 
    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex < 0 Then Return
        Dim mli As MyListItem = ListBox1.SelectedItem
        Debug.WriteLine("Selected item ist " + mli.DisplayValue + " item data=" _
          + mli.ItemData.ToString())
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist