Imports Infragistics.Win Imports Infragistics.Win.UltraWinListView ... Private Sub Use_Checkboxes_in_WinListView_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Use the data from the 'Customers' table in the Northwind database Me.CustomersTableAdapter.Fill(Me.NWindDataSet.Customers) ' Set the control's View property to 'List' Me.ultraListView1.View = UltraListViewStyle.List ' For the second control, set MultiColumn to false Me.UltraListView2.View = UltraListViewStyle.List Me.UltraListView2.ViewSettingsList.MultiColumn = False ' Set the CheckBoxStyle property to 'CheckBox' Me.ultraListView1.ViewSettingsList.CheckBoxStyle = CheckBoxStyle.CheckBox ' Iterate the Rows collection of the 'Customers' table ' and add an item for each customer Dim i As Integer For i = 0 To Me.NWindDataSet.Customers.Rows.Count - 1 Dim row As DataRow = Me.NWindDataSet.Customers.Rows(i) Dim customerID As String = row("CustomerID") Dim companyName As String = row("CompanyName") Me.ultraListView1.Items.Add(customerID, companyName) Next End Sub Private Sub btnGetCheckedItems_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' List the customers that were checked by the end user ' Clear the previous list Me.UltraListView2.Items.Clear() ' Get a reference to the control's CheckedItems collection Dim checkedItems As UltraListViewCheckedItemsCollection = Me.ultraListView1.CheckedItems ' Iterate the CheckedItems collection and add the company names ' to the second UltraListView control. Dim i As Integer For i = 0 To checkedItems.Count - 1 Dim checkedItem As UltraListViewItem = checkedItems(i) Me.UltraListView2.Items.Add(checkedItem.Key, checkedItem.Value) Next End Sub