Almacenar el value en un desplegable

[RootK]

No te lo muestra porque estás llenando el combo con una clase definida, debes hacerlo de la siguiente forma:

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim myValue As String = CType(ComboBox1.SelectedItem, Elemento).DarValor
MsgBox(myValue)
End Sub

Salu2