'northwindDataSet.Customers' のテーブルにデータをロードします。
Me.customersTableAdapter.Fill(Me.northwindDataSet.Customers)
For i As Integer = 0 To Me.northwindDataSet.Tables("Customers").Rows.Count- 1
Dim row As DataRow = Me.northwindDataSet.Tables("Customers").Rows(i)
' この行のフィールド値を個別に処理します。
Dim customerID As String = TryCast(row("CustomerID"), String)
Dim companyName As String = TryCast(row("CompanyName"), String)
' 項目を ultraListView に追加します
Me.ultraListView1.Items.Add(customerID, companyName)
' 項目の拡張選択を許可します
Me.ultraListView1.ItemSettings.SelectionType = SelectionType.Extended
'投げ縄選択を実行するために LeftMouseButton を設定します
ultraListView1.ItemSettings.LassoSelectMode= LassoSelectMode.LeftMouseButton
Next