Сравнение двух ListView

'загрузить данные в form3.LVПлан, а при загрузке Form4.LVМатериалы проверять существование Item'a в form3.LVПлан
For Each ITM As ListViewItem In form3.LVПлан
   If Not ITM.SubItems(i).Text = Stroka Then 'i - индекс SubItem'a, если они у Вас есть
      Form4.LVМатериалы.Items.Add(Stroka) 'Stroka - это ваши данные (переменная или как у Вас это выглядит)
   End If
Next

For Each Файл In Файлы
                Dim ЧтениеFile As New StreamReader(Файл, System.Text.ASCIIEncoding.GetEncoding(1251)) '1251-номер кодовой страницы, содержащей буквы кирилицы
 
                Dim ИмяФайлаЦвет As String = Len(TBИмяФайла.Text)
                'по длине имени файла разукрашиваем сетку LV если просто имя файла (len = 11) - Красный, правка куратором (len = 14) - AliceBlue, правка корректором - Green
                If ИмяФайлаЦвет = 11 Then ЦветСтроки = Color.Tomato
                If ИмяФайлаЦвет = 14 Then ЦветСтроки = Color.AliceBlue
                If ИмяФайлаЦвет = 17 Then ЦветСтроки = Color.YellowGreen
 
                Dim listViewItem1 As New ListViewItem(New String() {TBИмяФайла.Text, TBАвтор.Text, TBСтроки.Text, TBЗаголовок.Text, TBДатаСдачи.Text}, -1, Color.Empty, ЦветСтроки, Nothing)
                Me.LVМатериалы.Items.AddRange(New ListViewItem() {listViewItem1})
 
                i = i + 1
                ЧтениеFile.Close()
            Next

            For ii = Form3.LVПлан.Items.Count - 1 To 0 Step -1
                
                Dim item1 As ListViewItem = LVМатериалы.FindItemWithText(Form3.LVПлан.Items(ii).SubItems(4).Text)
                LVМатериалы.Items.Remove(item1)
            Next