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