'/* ComboBox-Items Klasse */
Public Class ComboBoxItems
    Private _Value As Object
    Private _DisplayValue As Object
    Sub New(ByVal Value As Object, ByVal DisplayValue As Object)
        Me._Value = Value
        Me._DisplayValue = DisplayValue
    End Sub
    Public Property Value() As Object
        Get
            Return _Value
        End Get
        Set(ByVal Value As Object)
            _Value = Value
        End Set
    End Property
    Public Property DisplayValue() As Object
        Get
            Return _DisplayValue
        End Get
        Set(ByVal Value As Object)
            _DisplayValue = Value
        End Set
    End Property
End Class

'/* Füllen der ComboxBox mit dieser Klasse */
 Dim cbxItems As ArrayList = New ArrayList
 For a As Integer = 0 To 10
   cbxItems.Add(New ComboBoxItems(a.ToString, "Wahl:" + a.ToString))
 Next
 Me.ComboBox1.DataSource = cbxItems
 Me.ComboBox1.DisplayMember = "DisplayValue"
 Me.ComboBox1.ValueMember = "Value"

'/* Abfrage des Sel.-Value Wertes den der User nicht "sieht" */
   Dim [value] As Object = CType(Me.ComboBox1.SelectedItem, ComboBoxItems).Value
   MsgBox([value].ToString)