Public Class c1
        Private v1 As String
        Private v2 As String
        Public Property pv1() As String
            Get
                Return v1
            End Get
            Set(ByVal value As String)
                v1 = value
            End Set
        End Property
        Public Property pv2() As String
            Get
                Return v2
            End Get
            Set(ByVal value As String)
                v2 = value
            End Set
        End Property
    End Class
 
    Dim bs As BindingSource
    Dim loc1 As New List(Of c1)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        loc1.Add(New c1() With {.pv1 = "c1v1", .pv2 = "c1v2"})
        loc1.Add(New c1() With {.pv1 = "c2v1", .pv2 = "c2v2"})
        loc1.Add(New c1() With {.pv1 = "c3v1", .pv2 = "c3v2"})
 
        bs = New BindingSource(loc1, Nothing)
        ComboBox1.DataSource = bs
 
        ComboBox1.DisplayMember = "pv1"
        ComboBox1.ValueMember = "pv2"
        ComboBox1.SelectedValue = "c2v2"
 
    End Sub
 
    ' Löschen
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        bs.Remove(bs.Current)
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov