Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim customers As BindingList(Of Customer) = New BindingList(Of Customer)()
customers.Add(New Customer("John", "C001", "8888832141", "john@gmail.com"))
customers.Add(New Customer("Alex", "C002", "8888832142", "@gmail.com"))
customers.Add(New Customer("Shawn", "C003", "8888832143", "shawn@gmail.com"))
customers.Add(New Customer("Sam", "C004", "8888832144", "sam@gmail.com"))
customers.Add(New Customer("Neo", "C005", "8888832145", "neo@gmail.com"))
customers.Add(New Customer("Paul", "C006", "8888832146", "paul@gmail.com"))
c1MultiSelect1.BindingInfo.DataSource = customers
c1MultiSelect1.BindingInfo.DisplayMemberPath = "Name"
End Sub