Tengo una clase llamada optionCode:

Class optionCode
    Public description As String
    Public optCode As String
End Class

Tengo una consulta que devuelve una lista de esta clase optionCode:

Dim _SelectActiveOptionCodes2 = (From _OptCodes In _EntityModel.tblOptionCodes
                                Where _OptCodes.fdStatus = "A"
                                Select New optionCode With {.description = _OptCodes.fdDescription,
                                                            .optCode = _OptCodes.fdOptionCode}).ToList()

Quiero usar esta lista para llenar un cuadro de lista donde la descripción es el campo de visualización y el código de opción, es el campo de valor.

Cuando usas:

sortableOptionCodes = _SelectActiveOptionCodes2
sortedOptionCodes = _SelectActiveOptionCodes2
OptionCodeListBox.DataSource = sortedOptionCodes

El cuadro de lista se completa, pero cada entrada es "OptionCodeSearch.Form1 + optionCode"

No puedo entender cómo usar las funciones .ValueMember y .DisplayMember para que el cuadro de lista se cargue de la manera que quiero.