1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
De invoer System.Text Schemerige lb1 als Lijst (van Koord) = ListBox1.Items.Cast (van Voorwerp) (). Selecteer (Functie s.ToString ()).ToList () Schemerige lb2 als Lijst (van Koord) = ListBox2.Items.Cast (van Voorwerp) (). Selecteer (Functie s.ToString ()).ToList () Schemerige lbDiff als Lijst (van Koord) = (lb2) .ToList lb1.Except () Schemerige stringDiff als Nieuwe StringBuilder () lbDiff.ForEach (Functie stringDiff.Append (s & vbCrLf)) MessageBox.Show (stringDiff.ToString ())