Almacenar el value en un desplegable

[Javichechu]

Pongo mi código

Código:

Public Class ListItem

    Public myvalue As String
    Public mytext As String


    Sub New(ByVal value As String, ByVal text As String)

        myValue = value
        myText = text

    End Sub

    Public Property PropiedadValue() As Integer
        Get
            Return myvalue
        End Get
        Set(ByVal Value As Integer)
            myvalue = Value
        End Set
    End Property

    Public Property PropiedadText() As Integer
        Get
            Return mytext
        End Get
        Set(ByVal Value As Integer)
            mytext = Value
        End Set
    End Property

End Class

Y luego cuando quiero meter un item hago ésto:

Código:

iCodigo = Convert.ToInt32(NodoAux.Attributes("id").Value)
sValor = NodoAux.Attributes("descripcion").Value

Lista.Items.Add(New ListItem(iCodigo.ToString(), sValor))

Lista.ValueMember = "PropiedadValue"
Lista.DisplayMember = "PropiedadText"