For Each lvi As ListViewItem In ListViewZ.Items
If lvi.SubItems(4) <> Variables.UserCity Then
ListViewZ.Items.Remove()
End If
Next
For Each lvi As ListViewItem In ListViewZ.Items
Dim found As Boolean = False
For Each si As ListViewItem.ListViewSubItem In lvi.SubItems
If si.Text = Variables.UserCity Then
found = True
Exit For
End If
Next
If Not found Then
lvi.Remove()
End If
Next