Dim lst As New System.Collections.Generic.List(Of String)
 
        For i As Integer = 1 To 100
            lst.Add("Item " + CStr(i))
        Next i
 
        Dim bs As New System.Windows.Forms.BindingSource
        bs.DataSource = lst
        ComboBox1.DataSource = bs
        ComboBox2.DataSource = bs

        Dim lst As New System.Collections.Generic.List(Of String)
 
        For i As Integer = 1 To 100
            lst.Add("Item " + CStr(i))
        Next i
 
        Dim bs1 As New System.Windows.Forms.BindingSource
        Dim bs2 As New System.Windows.Forms.BindingSource
 
        bs1.DataSource = lst
        bs2.datasource = lst
 
        ComboBox1.DataSource = bs1
        ComboBox2.DataSource = bs2