Public Class Eintrag
 
    Private _Value As String
    Private _DisplayValue As String
 
    Sub New(ByVal DisplayValue As String)
        Me._DisplayValue = DisplayValue
    End Sub
 
    Sub New(ByVal Value As String, ByVal DisplayValue As String)
        Me._Value = Value
        Me._DisplayValue = DisplayValue
    End Sub
 
 
    Public Property Value() As String
        Get
            Return _Value
        End Get
        Set(ByVal Value As String)
            _Value = Value
        End Set
    End Property
 
    Public Property DisplayValue() As String
        Get
            Return _DisplayValue
        End Get
        Set(ByVal Value As String)
            _DisplayValue = Value
        End Set
    End Property
 
End Class

me.listbox1.displaymember = "DisplayValue"
me.listbox1.valuemember = "Value"
me.listbox1.items.add(new eintrag("Test1", "Anzeige1"))
me.listbox1.items.add(new eintrag("Anzeige2))

listbox1.items(0).DisplayValue = "neue Anzeige"