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