Public customers As BindingList(Of Customer)
Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
customers = 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"))
Me.mselect.DataContext = customers
End Sub