Отбор записей в listview

Public Class Form1
    Dim things As New List(Of Thing)
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
       
        For Each row As ListViewItem In ListView1.Items
            things.Add(New Thing With {.Model = row.SubItems(0).Text, .Value = row.SubItems(1).Text})
        Next
 
        Dim hash As New HashSet(Of String)(From el As Thing In things Select el.Model)
        ComboBox1.DataSource = hash.ToList
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim values() As String = (From el As Thing In things Where ComboBox1.SelectedItem = el.Model Select el.Value).ToArray
        ComboBox2.DataSource = values.ToList
    End Sub
End Class
Public Class Thing
    Public Property Model As String
    Public Property Value As String
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        things.Clear()
        For Each row As ListViewItem In ListView1.Items
        ' ' '