1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Importazioni System.Text Lb1 fioco come lista (di stringa) = ListBox1.Items.Cast (di oggetto) (). Selezionare (funzioni s.ToString ()).ToList () Oscurano lb2 come lista (di stringa) = ListBox2.Items.Cast (di oggetto) (). Selezionare (funzioni s.ToString ()).ToList () Oscurano il lbDiff come lista (di stringa) = lb1.Except (lb2) .ToList () stringDiff fioco come nuovo StringBuilder () lbDiff.ForEach (funzioni stringDiff.Append (s & vbCrLf)) MessageBox.Show (stringDiff.ToString ())