Public Class C Public Property PropertyTest As String End Class
Private Items1 As List(Of A) Private Items2 As List(Of b) Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load Items1 = New List(Of A)() Items2 = New List(Of b)() For n As Integer = 1 To 10 Dim x As New A() Dim y As New b() Items1.Add(x) Items2.Add(y) x.PropertyTest = String.Format("TEST{0,-3}", n) y.PropertyTest = String.Format("TEST{0,-3}", n) Next ComboBox1.DataSource = Items1 ComboBox2.DataSource = Items2 ComboBox1.DisplayMember = "PropertyTest" ComboBox2.DisplayMember = "PropertyTest" End Sub